4 


(V 


VONGUDSAN 


Loc OBJ CODE M SIMT SOURCE STATEMENT 


SH-BEGIN PAGE i 
ASM 5.9 


SE AEE SEER IE IESE AE RTE EAE AE EEE ERE IESE IESE IEEE SE IEE IEEE SEER SE ESE TEE IESE RIESE HE SEE TE IEE SEE HEE TEI HIE EE HE IESE 
BEGINNING OF SHADOW ROM PROGRAM 


FEM TEE EH HEE TEE EE EE HEHEHE AE EE SEE EE SE HEHE SEE SE HE TE HE SE TE HE HEHE HEHE ETE HE HE SE SE SEE EEE TEE SE HE ESE IE HE HE HE SE AE HE HE aE 


we wa ve ve vo vo wo 


+#INCLUDE SHS_V.S 


3 


- 


~e ve we ve we ve 


3 FE FE HE HEHE HE HE SE HEE HEHE EH HE HE IE HE HE SE HE SE SE SE PH EE HE EH SE SI EH SE EH SE ESE HH IEE HE EE JE SEE HH dE SE 


SHALOW ROM SYSTEM VARIABLES 


FETE SE HEHE HEHEHE HE EE HE HE HEHEHE HEHE HE HE HEHE HEHE SE HE SE HE HE HH SE HE EE EE EE HH FE HE HEH IEE SE HE SE IIH HH HE a SE SE EE 


F PEE SE HE HEHE HE HE HE HE HE SE HE HE SE SE HE HE HE HE HE SE SE HE SE SEE HE HSE SE SE SEE JE SEE EE HE ES EE HE SE ES HE 


INCL NEWVAR. S 
3% NEWVAR.S 
3# 29/4/23 


* 
+ 


SFE FE HEHEHE HEHE HE HE HE HE HE I HE HE HEE SE HE HE HE HE HE HE HEHE HE SHE HE ES EE EE a aE HE HEH HEE HE 


3 


SFE IE TE ETE IE HEHEHE IESE HEHEHE EAE IE HE HEE ESE SEE EHR EHH TEE SEH TE IESE EGE HE ESE EE HEE HE AE tt 
3# SYSTEM EQUATES 
STEHT EE AE IEEE IE SEE SEE HE AE IEE SE REE OSE EEE REGIE SEE ESE IE TEI HEE TEE EE SEE SEE 


PORTC  EQU 
PURTD EWU 
SELD Equ 
SELC EQU 
WRITE  EQU 
ERASE EQU 
cTs EQU 
SYNC EQU 
PROTECT 

GAP Eau 
BUSY Eq 
PLEN EQu 
HD_LEN EQU 
DLEN EQU 
HD_MAX EvU 
TRYS EQU 


GAPT3 EQu 


GAPT1L Eau 


GAPT2 EQU 


OEFH 
QOE7H 


OFEH 
OF DH 
OFBH 
OF7H 
QEFH 


2 

Eu 1 

4 

10H 

12 

PLEN+14+4+1 
HU_LEN+512+1- 
255 

5 


3460 


GAPT3+74 


B31 


* 


SUDRIVE CONTROL/STATUS FORT 
SDATA PORT ADDRESS 


SDRIVE SELECT DATA 
SDRIVE SELECT CLOCK 
SWRITE CURRENT GN 
SERASE CURRENT CN 
sCLEAR TO SEND GQUTPUT 


SSYNC BYTE DETECTED SIGNAL 
SWRITE PROTECT SIGNAL 
SGAP SIGNAL 


SLENGTH OF FREAMBLE 

SLENGTH OF HEADER BLOCK FLUS PREAMBLE 

sLENGTH OF DATA BLOCK 
SNUMNBER UF BLOCKS ON TAFE 
SNUMBER OF TRIFS ROUND TAFE 
SBEFURE GIVING UP 
sTHE DEC BC DELAY BETWEEN REALING 
3A HEAVER, CURRECTING IT, TESTING 
sIF FREE ANL WRITING A DATA BLOLK 
3THE DEC eC DELAY BETWEEN WRITING 
sA HEADER BLOCK ANY WRITING A 
sDATA BLOCK 
STHE DEC BC DELAY BETWEEN END OF 
3A DATA BLOCK ANT BEGINNING OF 
SHEADER BLOCK 


Lot 


Ok! CODE M STMT 


a9 
60 


SH.BEGIN 
SOURCE STATEMENT 


$THE ABOVE TIMINGS ARE HOPEFULLY 


PAGE 2 
ASM 5.9 


STHE Det BC DELAY IS 24 T-STATES 
sOR 7.4US 


sFOR A HEADER OF LENGTH 840UIS, FOLLOWEL BY A GAP OF 3.06MS, FOLLOWEL 
BY THE DATA BLOCK LENGTH 21.3M5,FOLLOWED BY A GAF CIF 4M5. 


? 

ERROR Eau gS = sERROR HANDLING IN ROM 

INSERT EQU 1655H SMARE SPACE IN KOM 

DELREC EAU 19ESH sDELETE SPACE IN ROM 

CHANS EQu 2IG31 SADDIRESS CGF CHANNEL DATA 

STEEND EQU 23653 SADDRESS OF START OF SFARE SPACE 
STREOT EGU 234651 

MEM Eau 23656 

SELECT EQU 14601H sCHANWEL SELECT SUH. IN OLU ROM 
SENDTV EQU 7F4H 37V QUTPUT PROCEDURE 

OUTCH EQuU 146 SCHANNEL OUTPUT ROUTINE 

INCH EQu 1SE6H SCHANNEL INFUT ROUTINE 

3 SHADOW ROM SYSTEM VARIABLES 


3 SYSTEM RESTARTS 


R_BASE? EQu OQ00H 
ENTRY? EQU OOOSH 
CALBAS: Eau OO10H 


SYNT? EQU OO1¢H 
SHLERR! EQUuU OO20H 
ROMERR: EQU OO2s 
INSER. EQU OO30H 
MASKS EQU O028H — 


3 BASE ROM ADDRESSES 


LAST_K EGU SCoaH 

DEFADD EQ SCoBH 

STRMS EQU SC10H 

Y EQU SC2AH 

ERR.NR EQU SC32AH ‘ 
FLAGS EQuU SCSBH 

TV_FLAG EQU SC3CH 
ERRUSP EQU SC2DH 
NEWFPC EU SC42H 
NSFPC EGU SC44H 
FPC EQU SC45H 
SUBFPC EGU SC47H 
BORDCR EQU SC48H 
VARS EQU SC4BH 
CHANS.. EQU SC4FH 
CURCHL EQU SCS1H 
PROG EQU SCS3H 
-DATADD EWU SCS7H 
E.LINE EQU SCS9H 


FEE FE SE HEHE HE AE HE HE SE HE HEE HE HEE HE HEE SEE HEHE SE SEE HEE JE SE EE SE ESE HE SE IE SE HE TEESE HE SEE ESE ESE EE dE EE a EE EE 


n 


Lac 


5Ceced 


OB! CODE M STMT 


SH_BEGIN PAGE 3 

SQURCE STATEMENT ASM 5.9 
117) CHADD EQU SCSDH 
112 X_PTR Eau. SCSFH 
11? FLAGS2 EQU SC4AH 
120 =FLAGX EQu) SC71H 
121 UDG EQU SC7BH 
122 SCRCT E@u SCecH 
123 ATTR-P EQU SC8oH 
124 ATTR.T EGU SCeFH 
125 PFLAG EQU SC91H 
124 DR Evu SCB4H 
127 
128 
129 
130) $3 
131 3 MEE FE SE SEE HE HE HE HE HE EE HE EE EE HH HE SE EH EE HH SE Ege EHS SE Ea 
132 $4 FIXED MICRODRIVE DATA * 
133 HEE SE HEHE HE HE SE HE HE HE EE HEE HSE HE HEHE HEHE SEE ETE HE EEE HEE ESE AE SE HE HE ESE SE EE EE 
134 $ 
135 $ 
1346 $THIS FIXED DATA IS FOUND IMMEDIATELY AFTER THE SYSTEM VARIABLES 
137 $THE SPACE IS CREATED WHEN THE SHADUW ROM IS FIRST CALLED 
133 3 ; : 
13° FLAGSS EQU DR 323734 | SBIT 0 ... RECURSION 
140 SBIT 1 4... ALTO RUN 
141 sBIT 2... HOOK 
142 SBIT 3... NET/RS232 
143 SBIT 4 ... LOAD 
144 SBIT 5S ... SAVE 
145 SBIT & ... NERGE 
144 SBIT 7 ... VERIFY 
147 XR . Eau 7 S INDICATES VERIFY NOT LOAD 
1481 VECTOR EG@U O1H $23735/6 SNEW COMMAND VECTOR POINT 
1493 SBRT EQU VECTOR+O2H $23737 SSTART OF CALBAS SUBROLITINE 
1504 HL EQU SERT+O1H ; 
1517 ZILCH EQU SERT+04H 
152 D BAUD EQU SBRT+OAH 323747 SRATE FOR RS232 
153F NTSTAT EQU BAUD+O2H 323749 s“OWN” STATION NUMBER 
15410 IOBORD EQU NTSTAT+O1H 323750 SBORDER COLOUR FOR 1/0 
1551/ SER_FL EWU IQBORD+O1H $23751 SSERIAL INFUT FLAG & CHARACTER 
1546 SEND OF DEFAULT SYS. VARS. 
157 
isa 
159 ; iSTART OF VARIABLES 
160 SECTOR EGU SER_FL+0Z2H+tDR 323753 SMICRODRIVE SECTOR 
1614/5CHADD. EGU SECTOR+02H-DR ; 323755 S TEMPORARY STORE FOR CH ALL 
1462|)7NTRESP EGU CHADD_+02 323757 SSTORE FOR RESPONSE CODE 
163. : 
144 $THE EIGHT LOCATIONS FOR A NET HEADER 
165) NTOEST EQU NTRESP+O1H $2375 © SDESTINATION STATION NUMBER 
I146/9NTSRCE EQU NTDEST+O1H 323759 ;SOURCE STATION NUMBER 
1467/4 NTNUMB EQU NTSRCE+O1H 322760 SBLOCK NUMBER : 
143IC NTTYFE EQU NTNUMB+02H 423762 S°DATA’ (0) OR “CLOSE’ (1) TYPE CODE 
169 1D NTLEN EQU NTTYFE+O1H $232763 SDATA BLOCK LENGTH 
17012 NTOCS EQU NTLEN+0O1H 322764 sDATA CHECKSUM 
171)7 NTHCS EQU NTDCS+OLH 823765 SHEADER CHECKSUM 
172 
173 ; STHE SIXTEEN LOCATIONS FOK PARAMETER COLLECTION 
17490 D.STRi EU NTHCS+01H § 223766 sTWO BYTE NUMBER 


«i , SH BEGIN PAGE 4 
Loc =6OOBU CODE M STMT SCURCE STATEMENT ASM 5.9 
A7MAS_STR1L EAU DLSTRi+O02H 323768 ISTREAM NUMBER 
17623 L_STRIL EGU DUSTRLI+03H 323769 SLETTER 
* 17724 N.STRI EQU D.STR1+04H = $23770 sNAME DETAILS (LENGTH & START) 


1732 0D.STR2 EOQU D_STRL+0SH 
1792AS_STR2 EQU D_STR1+0AH 


323774 3 ## SECOND SET ## 
1SQ7Z3L_STR2 EQU D_STRI+0BH 32 
3 


JNM RIK 
i tO 
N 
N 
oe 


3777 
{QLacN_STR2 EAU D_STR1+0CH 23778 
1282 
123 
1842¢ SC_00 EQU D_STRI+08H $23774 s;SECOND SET FOR SCANN 


18527 SC_OB EQU D_STRI+O09H 323775 
18428SC_0D EQU D_STRiI+OBH 323777 
1872p 5C_0F EGU DUSTRI+0DH 323/79 


183 

139 

1?0 sTHE NINE LOCATIONS FOR “SAVE*, “LOAD ETC. 
197120HD_00 EQU DLSTRI+10OH 323/82 SIYFE Cane 

1?23) HD_OB EAU HO_O0+01H 3237283 SLENGTH OF BLOCK 
197222 HD_0C EGU HDO_LOB+O1H 323784 

174 22HO0_on EQU HD_OC+01H $23785 SSTART OF BLOCK 
17334 HD_OE Eull HD_OU+01H 323726 

1748S5HDO_0F EnU HD_LOE+01H 323737 sSPROGRAM LENGTH 
17724HO_10 EOU HDO_LOF+01H 323729 

19237 HO11 Eau HD_10+01H 323739 sLINE NUMBER 

179 29g@HD_12 EOu HD_11+01H $23790 

200 

ZOAZSSCORIES EAU HuU_i2+1 3223791 

202 

203 

2043 7ROMADD ERU HD_10+01H $23739 SPASSING AUDRESS FOR HOOKS 
205 

20462ADR_LEN EQU COFIES+01H 

207 N LEN EQU O114H sLENGTH GF A NET BUFFER 

203 . 

209 

210 $3 RS222 FORT DETAILS 

211 

21l2 RE2SZ EQU OF 7H SSERIAL DATA FORT 

213 KELFT Eull OFEH SKEYRCARD PORT 

214 STATUS EGU OEFH SSERIAL STATUS FORT 

215 DTR EQuU OSH sMASK FOR DTR QUTFUT 

2146 

217 $ NET PORT DETAILS 

218 SERIAL EQU OF7H sSERIAL DAVA FORT 

21? WAIT EQU OEFH sWAIT PORT 

220 : : ’ 

221 3 

222 3 

223 5 HAE SE SESE HE HE TE FE TE SE HE HE FE HE HE EE HE HE HE SE SE SE SE SE EE Sa 4 SE SS SE ee a a de te a a 

£24 3H MACROS * 

225 3 MAE HE SE HEHEHE HE ESE HE HE HE HE HEE HE SE FE SE SE SE HE HE HE EE HE HE I I He HEE SE He EE SE SE EH 

Z26G 0 3 

227 RST MACRO #ADDR | sTHIS MACRO WILL BE USED 10 FLAG 
222 RST #ADDR sCALLS 1fO THE RUM WHEN THIS $S/WARE 


229 _ ENUM 31S CONVERTED TO SHADOW ROM FORM. 
230 =$ ; 

231 ASSERT MACRO #COND 

232 _ COND .NOT. (#COND) 


Loc 


OB! CODE M STMT SOURCE STATEMENT 


233 
234 
° 235 
234 
237 
233 
239 
240 
241 
242 
243 
244 
245 
246 
247 
243 
249 
250 
251 
hee) 


eta 
253 


pant Bie, 


2540 


255 


oa 
etl 


257 
253 
259 
240 
261 
262 
262 
244 
245 
244 
267 
243 
249 
270 
271 
272 
272 
274 


8 


3 
OLOCAL 


8 
OLDUP 


we ve 


SH_BEGIN 


PAGE 3 


HHHHHHHHHHERROR IN ASSERTION #COND 


ENDC 
ENDM 


MACRO 
RST 
DEFW 
ENDM 


MACRO 
JP 
ENLM 


#508 
CALBAS 
#SUB 


#DES1 
#DEST 


SHEE SE EEE AE HEE HEE IEE FE SE IE IEE SE HEE HEE HEE IE IEE SE SE HEE IE HEE JE HE SE SE SE GEE aE 


3% 


DATA 


a 


SEE E IEE IE AE HE AE AE HEHE IE HE SEE HEHE IE SEE EE IE SEE EAE IE SE JE EEE EE SEE aE GEE EE 


THE F 


© ve «wa we we we ve we us 


OLLOWING 


3;OLD WRCH ADDRESS FOINTS 10 0002 


3ULD ROCH ADDRESS POINTS 1O 0008 


CHTYFE 


Ent 


4 


sNEW WRCH ADDRESS 
3NEW RDCH ADDRESS 


CHLEN 
CHEYTE 
CHREC 
CHNAME 
CHFLAG 


WRFLG 


’ 
CHURIV 
CHMAP 


CHHDR 
HUFLAG 
HDNUMB 


HDNAME 
HOCHK 


3; TOTAL 
3 

CHDES 
RECFLG 


RECNUM 
RECLEN 


Eau GHTYFE+5 
Eau CHLEN+2 
EQuU CHBYTE+2 
EQu CHREC+1 
EQU CHNAME+10 
EQu QO 

EQu CHFLA+1 
Equ CHORIV+1 
Eau CHMAF +2 
Equ CHHDR+FPLEN 
EQu HUFLAG+1 
EQU HONUMB+3 
EQu HDNAME+10 
LENGTH OF THE ABOVE FPLEN 
Eou HDCHK+1 
Euu CHDES+PLEN 
Equ RECFLG+1 

RECNUM+1 


EQu 


iO ek on ye 


HEHEHE HEHEHE HEE HE HE SE IE SEE HE AE SE HE HE ETHAN L438 96 $6 EE SE dE dE SE aE aE a te 


DATA IS CREATE“D FOR EVERY OPEN MICRODRIVE FILE 
AND SOMETIMES FOR A WORKSPACE IN MICRODRIVE OPERATIONS 


sCHANNEL TYPE 


SLENGTH OF THIS CHANNEL DATA 
SCURRENT BYTE POINTER 
sCURRENT RECORD 
/$10 BYTE FILE NAME 
3 CHANNEL FLAGS 


sWRITE FLAG BIT 


;DRIVE NUMBER 0-7 
JADDIRESS OF ORIVE MAP FUR THIS FILE 


3START OF HEADER 
3FLAG BYTE AT START OF HEADER (BITO=1) 
;NUMBER OF CURRENT HEADER/SECTOR 
3FOLLOWED BY TWO EMPTY BYTES 
sTAPE NAME 
SHEADER CHECKSUM 


sSTART OF DESCRIFTOR 
sFLAG BYIE IN DESCRIPTOR (BITO=0) 
;BIT 1 = EOF 
sBIT 2 = SLVM 
¢NUMBER OF THIS RECOKD 
SLENGTH OF THIS RECORD 


Loc 


oo000 
0000 
ooo! 


ooos 


00083 
0008 
OOOB 
000c 
ooon 


0010 


SH_BEGIN ' FAGE 4 


OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
291 RECNAM EQU RECLEN+2 7NAME OF THIS RECORD 
292 DESCHK EQU RECNAM+10 — DESCRIPTOR CHECKSUM | 
293 CHDATA EAU DESCHK+1 SETART OF DATA BLOCK 
294° DCH Ewu CHDATAtS12 DATA CHECKSUM 
BIS 3 
294 CHANLN EQU DCHK+4 SLENGIH OF ALL THIS 
297 3 
: 2983 FMEA HE AE HEE HEE EE HEHE HE IE SE HE IEMA PP Ht 3 9 dE EE SEE EE EEE EE EE EEE 
299 3 
300 $A MICROURIVE MAP IS A BIT MAF OF ALL SECTORS ON A MICRODRIVE 
BOL $THE BITS ARE COUNTED FROM O OQ HO_LMAX-1 THE LENGTH 
BOZ $0F THE MAP IS THEREFORE GIVEN BY:- 
B03 3 
204 MAPLN  EQU 22 
i 305 3 
i 306 $THE MAP IS CREATE’D FOR EVERY DRIVE CONTAINING AN OPEN FILE 
307 3 
308 4#LIST ON 
209 
310 
Bil EXTERNAL RETEAS 
: B12 EXTERNAL SH ORPT 
\ 312 EXTERNAL S_CAT 
B14 EXTERNAL S_FORM 9 
B15 EXTERNAL S_MOQVE a 
B14 EXTERNAL S_ERAS 
B17 EXTERNAL S_CFEN 
219 EXTERNAL S_SAVE 
B19 EXTERNAL $_LOAD 
azo _EXIERNAL S_VERI 
BEL EXTERNAL S_MERG 
222 EXTERNAL S_CLS 
223 EXTERNAL S_CLR 
224 EXTERNAL CLIT_N 
225 EXTERNAL NTCLSE 3 TEMP 
226 EXTERNAL CUT_T2 3 TEMP 
B27 EXTERNAL HOOKS 
329 EXTERNAL AUTO_R 
B29 EXTERNAL DELTMP 
230 EXTERNAL UPHEX » HEX 
Bat . 
332 ORG RLHASE ;sQ000H 
E1 223 POP HL TLRUP RST STACKED ADURESS 
FINZ47C00 234 LD (IY+FLAGS3-Y),00H 3CLEAR STATEMENT FLAG WHEN EXITING 
- 335 SAFTER A STATEMENT 
C20000 B36 JP RETRAS JUMP TO O700H 
327 
229 ORG ENTRY :0008H 
ZASDSC B39 LD HL, (CHADD) sREPEAT INSTRUCTION IN BASE ROM 
El 340 PUP HL SFETCH THE DISCKIMINATOR ADDRESS 
ES R41 PUSH HL TAND KEEP A COPY 
c2ava00 342 JP ERR_IN JUMP FORWARD 
343 
244 ORG CALBAS ‘:0010H 
245 CALL SUBROUTINE IN BASE RUM 
346 sTHIS USES THE SPECIAL SUBROUTINE 1N THE 
247 SSHADOW SYS. VARS. 
248 $ LU HL,--——- (THE STORED HL) 


Loc 


0010 
VOL 
Oo1L4 
OO1S 


oo013 
OO18 
oo1e 


/Q0z0 
0020 
oon 
onz? 


O23 
QON23 
O02 


2030 
oOo30 


a040 
OO4L 
O04? 
Qd4sG 


On49 
oo4p 


OO4F 
OOS 


Qos 
oose2 


OOSA 


SH. BEGIN FAGE 7 
OBJ COUE M STMT SOURCE STATEMENT ASM 5.9 
249 s CALL ZILCH 
350 § LD (DR+HL),HL 
° 351 3 RET 
353 sSFURMAT TO CALL “CALBAS” IS 
354 $ RST CALBAS 
355 3 DEFW ZILCH 
B56 “$NOQ REGISTERS ARE ALTERED 
357 
22BA5C 353 LD (DR+H_L)»HL $SAVE HL IN ITS STORE 
El 359 POP HL sHL POINTS TO “ZILCH’ 
DS ' 340 FUSH DE 3SAVE DE TEMPORARILY 
124A 3461 JR CALB_2 
362 
343 ORG SYNT $0013H 


FOCKOL 7E 264 BIT 7, (IY+FLAGS-Y) 


cy 345 RET 

BL6 

367 ORG SH-ERR +0020H 
DF 368 RST SYNT 
2245 267 JR Z,SYN 
1815 370 JR SHERRI 3 RUN-TIME 

371 

372 ORG ROMERR 0028H 
FOCRO29E 373 RES 3. (1Y#TV_F LAG-Y) 
1812 _ 374 JR RMERR 

375 

274 

377 ORG INSER. +0030H 
C3F701 272 JP INSER1L 


ORG MASK $0038H 


sIN SYNTAX TIME 


3Z FUR SYNTAX 
sNZ FOR RUN-TIME 


- NO REPORT 
- GIVE REPORT 


sCORRECT THE “CURSUR’ ERRUR 


;JUMP TO THE ACTUAL SUBROUTINE 


FE B82 EI sKEEP INTERRUPT ON 
Cc? 283 RET s INTERRUPT ROUTINE FINISHED 
a4 
325 SHERRI 
C07700 284 CALL HOOK? sTEST IF HOOK PROCEDURE 
C20000 xX 887 uP SH_RET 3BEFOURE REPORTING 
323 | 
229 RMERR 
CF 370 RST SYNT 
2225 art JR Z.SYN 
cO7700 B02 CALL Ho? sDITTO FOR OLD ERROR 1e2 BREAK) 
cnoo0g x 292 CALL DELTNP j lohtig TS ee fed 
394 © ; ‘é 
FLUCB7C4E 395 BIT 1, (I1Y+FLAGS3-Y) 31S THIS AN AUTORUN 
Bea? BPG JR Z,SYN 3NQ... CONTINUE 
. 397, 
FIICB7C44 393 BIT 4, (1IY+FLAGS3-Y ) sAND IS IT A LOAD 
BEALS 299 JR Z.SYN 
400 
FLI7EOO 401 LD Ay (LY+ERR_NR-Y) 
FE14 402 cP 14H‘ sHAS THE PIRAIE ATTEMPTED 10 BREAK? 
403 
2000 404 JR NZ,SYN #NO... CONTINUE 
405 
210000 406 . to -HL,O sYES...SURPRISE, SURPRISE! 


SH_BEGIN PAGE 8 
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
OOSF ES 407 PUSH HL 
0060) «C7 403 RST R_BASE 
, 409 
OOL4 410 ORG OO44H 
OOb4 ELAS 4i1 RETN sHERE CIN NMI$ SIMPLY RESURN 
412 
0068 8=2ASrISC 413 SYN LD HL»(CH_ADD) %3%FETCH ERROR POINTER 
Q06B = 225F5C 414 LD (X PTR)» HL 
OO6GE EN7BaD8C 415 LD SP. (ERR_SP) _ 
0072 =21C514 416 LD HLY16CSHO— KESE) 
0075 =ES 417 PUSH HL 
0074 C7 413 RST R_BASE SRETURN TO BASE ROM 
41? 
420 HOOK? 
0077. FOCB7C56 421 BIT 2) (IY+FLAGS3-Y ) 71S 1T A HOOK PROCEWURE ERROR 
o07B «6Ce 422 RET Z 3NO...RESUME SERVICE 
423 
007-6 ED7B3NSC 424 Lo SF, (ERR_SP) 7YES...ERROR RETURN 
COBO C7 425 RST R_BASE 
426 
427 
oo8t SE 422 CALB_2 Lu E; (HL) sFETCH THE TWO BYTES OF “ZILCH’ 
00k2 23 429 INC HL 
O0e2 54 4320 LO Lt, CHL) 
0024 EDS3RD5C 421 LD (OR+ZILCH), DE STHAT GOES INTO THE SUBROUTINE 
oonk = 23 ; 422 INC HL 3THE RETURN ADDRESS 
O02? 3 433 EX (SP),HL $THIS GOES TO STACK WHILST LE 
oosa ER 424 EX DE.HL 31S RETURNED 
OOfB 210000 425 LO HL, QQ00H SSTACK THE RETURN DISCRIMINATOR 
OOSE ES 424 FUSH HL 
ooaF 210300 427 LD HL,Q008H $THE ERROR RETURN 
e092 ES 42a PUSH HL 
0072 21BePSC 429 LD HL,DR+SBRT $THE SUBROUTINE’S ADDRESS 
00°46 = ES 440 PUSH HL : ; 
0O77) C320000 xX 441 JP RETBAS 
442 
443 
444 ERR_IN 
COPA FS 445 PUSH AF 
OOFTR 70 446 -Lu A.H 
Core BR AAT OR L ; 
C07D 2004 4443 JR NZ, ERR_1 :JUMP IF NOT A RETURN AFTER “CALBAS~ 
449 
OOF Fi 450 POP AF 
COAG EL 45 POP HL SRESTUIRE AF & HLL 
COAL ZABASC ~° 452 LD HL, (DR+H_L) $LOSING THE DISCRIMINATING ZERO 
o0A4 oP 453 RET 3A RETURN AFTER “CALBAS- 
454 : 
455 ERR_1 ;THERE HAS BEEN AN ERROR 
COAS nS 454 PUSH DE 30N STACK IS DISCRIMINATOR, AF & DE 
OOAS  LiFELS 457 LD DE, 1SFEH SINCH & WRCH DISCRIMINATOK 
OOA? = EnS2 452 sec HL, DE sCARRY IS RESET GIVING TRUE SUBTRACT IUN 
OCOAR D1 459 POP DE 3ON STACK IS UISCRIMINATOR & AF 
COAC 200E 440 JR NZ, ERR_2 JUMP UNLESS “DISCRIMINATOR’ = 15FEH 
441 
COAE FI 462 ‘ POP AF 
COAF 210000 XxX 443 LU HL, RETBAS 


OOE2 ES 464 PUSH HL sSRETBAS IS SLACKEO 


- 


toc 


OOB3 
QOBS 
QOB7 
OO 
OOB? 
QOBA 
OOBB 


QUES 


Oo0CcsS 
OOCK 
OO 


oOorns 
Oot? 
OornB 
OOCE 
ono 


Oop? 
oon4 
oops 
oon 
OO LE 
QOEL 
QOOEZ 
QOE4 


QOE7 
ODES 


OE? 
OOER 


OOEE 


OOFO 


QOFS 
OOF 4 


OOFG 
OOFS 


OOFB 


SH_BEGIN PAGE ? 
OBJ CODE M STMT SOURCE STATEMENT ASM 3.9 
210400 445 LD HL,Q004H 
19? 446 ADD HL. DE STHE INCH OR WRCH ALDURESS IS FUUND 
SE . AGT LD E. (HL) 
22 ALE INC HL 
5G 449 - LD D, (HL) 
EB 470 EX DE.HL SIT IS MOVED TO HL AND 
E? 471 JP (HL) sTHE JUMF TO It IS MADE 
472 
473 ERRz $THE DISCRIMINATOR 15 NOT “A CALBAS RETURN’ OR 
474 S“1SFE° FOR INCH OR WRCHS 
473 sTHEREFORE IT IS A POINTER TO A “REPORT DEFRB’ 
F7 476 RST INSER_ SON THE FIRST VISIT TO THIS FRUGRAM 
477 sTHE SHADOW SYS. VARS. HAVE TO BE ENTERED 
3EQ1 478 LO Al : : 
LV3F7 479 OUT (SERIAL),A sDEACTIVATE NET 
SEEE ASO Lo A,CTS.AND.SELDO $SELECT THE NET OVER RS222 
4at SAND NEGATE CTS 
DSEF 432 OUT (STATUS),A 
4G 
Fi 4a4q POP AF SFETCH ORIGINAL AF 
Et 425 POP HL SFETCH OISCRIMINASOR 
FS 436 PUSH AF SSTACK HOLDS ORIGINAL AF ONLY 
; 437 a <neeeentponnan ena e [PAN 
07 433 RST CALBAS SIN EFFECT -an A, (HL) & REL He pewnte at 
7BOO 4a9 DEFW OO7BH s$SQ AS TO COLLECT THE “DEFE’- 
AZO 
BS3ASC . 491 LD (ERR_NR),A SSTORE THE ERROR NUMBER 
4AQ2 
FEFF 493 CP OFFH $185 IT THE END OF THE FROGRAM 
2O17 4D4 JR NZ, ERR_HO 
425 : 
FOCB7C4E AIG BIT 1, (1Y+FLAGS2-Y) $13 THE “AUTO-RUN’ FLAG SETY 
BEOF 497 JR Z,ERRLPF 


A228 BIT 7, (1Y+PPC+1-Y) sUSING THE EUVIT-LINE? 
08 499 JR Z,ERR_PF 
ZASPSC 500 LD HL, (E_LINE) ;FETCH THE FIRST BYTE IN THE EDIT LINE 
7E Biot LD A, (HL) 
FEF7 502 CF OF7H $13 17 “RUN’ 
CAVOCO =X 503 JP Z,AUTO_R SJUMP AS DEALING WIIH “AUTO-RUN- 
504 . 
E7 SOS ERR_PF RST SH_ERR 
FF S06 DEFER OFFH 3“PROGRAM FINISHED 
507 
LO1B S08 ERR.HO SUE 1BH 
20000 X SOF JP NC, HOOKS sJUMP FORWARD WITH THE HOOK COVES 
- S10 
FEFO Sit CP OFOH 1S IT “NONSENSE IN BASIC’? 
2209 S12 JR Z,ERR_SA 
512 
FEF S14 cP OF3H 318 1T “INVALID FILE NAME“ 
2805 S15 JR Z,ERR_SA FALSO RECONSIDER THE STATEMENT AGAIN 
S14 
517 : 
FEFC 518 cP OFCH *' 41S IT “INVALID STREAM’? 
C22200 S19 JP NZ+ROMERR = $ALL OTHER ERRORS “FALL THROUGH? 
520 
521 
2ASD5C 522 ERR-SA LD HL,(CHADD) $SAVE THE CURRENT “ERRUR POINTER’ 


toc 


OOFE 
o101 


o10z 
0106 


O10? . 


oion 


Oo110 


O114 
o115 
O117 


OL11B 
OL11E 
O120 
O124 
OL124 
0127 
0128 
012A 
OSE 
Oe 
OLSk 
o120 
O132 
O134 
OL27 
O13? 
O12A 
O138 
oOVar 
OLSeE 
o14dt 
O142 


0144 
oO14s 
O144 
0147 
O143 
O14 
O146 
o140 


OL14E 
O1S4 
OLSE 
OLS3 
OLR 
OL37 
O1S52 
OLSA 
oO1sc 
o150 


OBJ CODE M STM 


22CBSC 
Fi . 


FOCE3746E 
C22800 


FUCB7C46 ..- 


C22800_ 
FDICH7CCE 


DF 
2004 


_FDS60CFF 
 FD4é00 


OEOO 
FDOCROC7E 


250A 


2AS3SC 
BA4IGSC 
BE 
BO002 
E7 

oo 

23 
2OdK 
SA455C 
BE 
FS 


Za 
SE 
23 
BG 
“ace 
hot 
22824 


19? 
1SES 


119400 
1? 

JE 
FEOE 
ZF 7 
23 
FEZ2 
2001 
(a) 
FESA 


323 
524 


SH_BEGIN PAGE 10 
SOURCE STATEMENT. . ASM 5.9 


ERR_ST 


LD (DR+CHADD.), HL 


POP AF ‘ sDISCARD ORIGINAL AF 

BIT 5S, (IY+FLAGX-Y) sARE WE IN INPUT 

JP NZ. ROMERR SYES...00NT PROCESS FURTHER 

BIT 0, (IY+FLAGS3-Y) . SNOW CHECK THE RECURSION FLAG 

JP NZ,ROMERR sIF FLAG SET JUST GIVE ERROR 

SET 0, (IY+FLAGS3-Y) ;SET THE RECURSION FLAG FORK EACH NEW STATEMENT 
RST SYNT 


JR NZ, ERR_ST 
LD (IY+PPC+1-Y),OFFH 3IN SYNTAX TIME FORCE THE EDIT LINE NUMBER 


LO B, (IY+SUBPPC-Y) 3FETCH STATEMENT NUMBER 

Lo c,0 SAND FIND THE START UF THE STATEMENT 
BIT 7, (LY+PPC+1-Y) sEDIT V. LINE 

JR Z,LSPR JUMP FUR @ PROGRAM LINE ; 

PUSH BC SSAVE STATEMENT NUMBER 

RET CALBAS 2x0 

DEFWC19FBH sJUMP FAST A LINE NUMBER 

For BC SRESTCRE STATEMENT NUMBER 

RST CALBAS . «; 


sFETCH THE CODE 
3JUMP FORWARD TO FIND THE REQUIRED STATEMENT 


DEEW OLE 
JR LSC 
LD HL, (PROG) 
LD A, (FPC+1) 
CP (HL) 

JR NC, LSCIA 
RSET SH_ERR 
DEFER O s“NONSENSE IN BASIC’ 
ING HL 

JR NZ,» LSC2 

Lo A, (FRC) sLOW LINE NUMBER BYTE 
CP (HL) Ld 

JR C,LLERR 


INC HL 
LO E, (HL) < 
INC HL ; 
LoD, (HL) 
INC HL 
JR Z,LSce SFOUND THE: LINE 
AnD HL, DE 
JR LSCL 


own 


LD DE,6 

ADD HL, DE 

LD A, (HL) 

CP OEH SNUMBER MARKER 
IR Z,LSC2 
INC HL 

CP 22H 

JR NZ,LSCS SNOT QUQTES 

DEC C SSET QUOTES FLAG 
CP 3AH sCOLUN? 


SH_BEGIN PAGE 11 


LOC 8B) CODE M STMT SOURCE STATEMENT ASM 5.9 
O1SF = 2804 Sat JR Z+LSCS 
O1¢61 FECR 582 cP OCBH 3“ THEN’ 
O142 2004 * 582 JR NZ,LSC7 
O1465 CHAL 534 LSCé BIT 0,C 
O157 2804 535 JR Z,LScs 
0149 FEOD Bee LSC7 cP OLH SCARRIAGE RETURN 
O14B  20E5 537 JR NZ,LSC4 
0146D =: 18CA Sag JR L_ERR 
589 
-O16F = 101 S70 LSCe DINZ,LSC4 
591 
O171 2B S92 DEC HL 
O172 225p5C 593 LO (CHADD) HL 
594 
O175 DF 595 RST SYNT sIN SYNTAX-TIME REMOVE ANY FP FORMS FROM LINE 
O174 2032 SIS JR NZ, ERR_3 
0172 FDCROCTE 597. HIT 7, (1Y+PPC+1-Y) 
O170 =CAFOOL S93 JP Z,ERR_6 sCOMFIRM DEALING WITH THE ELIT LINE 
O17F 2B 529 DEC HL 3STEP BACK ONE 
o180 oE00 600 LD C,0O0H sCLEAR FLAG 
O182 23 601 FPL ING HL 
O182 JE 602 LD A, (HL) 
0184 FEOE 603 CF OEH 
2010 604 JR NZ,FP2 
cs 605 PUSH BC 
010600 606 | LO BC, 0006H 
oy . 607 RST CALBAS . 
E19 609 DEFW A9ESHD PEO SEC 
ES 609 PUSH HL 
EDSECBSC 610 LO DE, (DR+CHALD.) tFETCH ERROR POINTER 
A? 611 AND A 
EDS2 612 SBC HL, DE 
200A 612 JR NC, FP2A $JUMP IF PAST CHALLL 
ERB 614 EX LE,HL 
010600 615 LD B,0006H 
a7 616 AND A 
ED42 417 SBC HL, BC sELSE REDUCE CHADL_ BY $1X LOCATIONS ALSO 
Z2CB5C 618 LO (OR+CHADDW)»HL 
E1 619 FP2A POP HL 
cl &20 FUP BC 
7E 621 FP2 LD Ay (HL) 
FEOD G22 cP OLH 
20U8 623 JR NZ,FP1L 
62 
O1Aa D7 625 ERR_3 RST CALBAS $CLEAR THE WORK SPACE & CALCULATOR STACK 
O1AR  BF14 *  &26 DEFW Q&BFH >x-C74C. i. 
o1Aan cbhapo2 627 CALL SV~CL™ SINITIALIZE THE NECESSARY SHALIOW SYS. VARS. 
G28 
O1BO ° D7 62? RST CALBAS 
O1EL = 2000 620 LEFW COOZ0ED "T'S 
O1B3 DSCE 631 SUB OCEH SCOMMANDS WILL BE ACCEFTED ONLY 
O1BS FEOL 632 CP O1H 
O1B7 CADDO xX 633 JP Z,S_CAT, sJUMP FORWARD TO SCAN A “CAT” STATEMENT 
O1BA FEO2 624 CP O2H 
OLEC CACODO xX 435 JP Z,S FORM sJUMP FORWARD TO SCAN A “FORMAT” STATEMENT 
OLBF = FEQR 626 CP O3H 
O1CL cADDDO xX 637 JP Z,S_MOVE tJUMP FORWARD TO SCAN A “MOVE’ STATEMENT 
o1c4a = FEQa 638 cP 04H 


i i ge 


SH_BEGIN PAGE 12 


» 
Lor on! CODE M STMT SOURCE STATEMENT ASM 5.9 
O1C4 CADDO X 62° JP 2,S..ERAS WIUMP FORWARD TO SCAN AN "ERASE" STATEMENT 
O1C? FEOS | 640 CP OSH 
OCB CAOOOO X 641 JP 2,S_OFEN . sJUMP FORWARD TO SCAN AN “OPEN #° STATEMENT 
OLE FEA 642 CP 2AH 
OTe CAQDOO X 643 jb Z, S_SAVE SUMP FORWARD TO SCAN A “SAVE’ STATEMENT 
o1D3 FE21 644 CP 21H 
Q1DS CA0000 X 645 JP 2, S_LOAD sJUMP FORWARD TQ SCAN A “LOAD’ STATEMENT 
oipe FEOS 646 CP OSH : 
O1DA CA0000 X 647 JP Z, S_VERI sJUMP FORWARD TU SCAN A “VERIFY” STATEMENT 
OLD FEO7 é48 CP O7H 
OLDF CAN000 X 649 JP Z» S_MERG 7UUMP FORWARD TO SCAN A “MERGE” STATEMENT 
650 
631 SADDED COMMANDS COME HERE - E.G. CLS 
GiE2 FE2D 652 cP 2DH 
O1E4 _CAd000 X 6523 JP Z,S_CLS sJUMP FORWARD TO SCAN A “CLS” STATEMENT 
Q1E7 FE2F 654 CP 2FH 
OLE? CA0000 X 655 JP Z,SCLR sJUMP FORWARD TO SCAN A “CLEAR” STATEMEN) 
6546 
657 
658 
OL1EC ZAB7SC 659 ERR_V LD HL,» (DR+VECTOR) SFEICH THE VECTORED ADDRESS 
O1EF E? 640 JP (HL) sTHIS (3S “ERR6” UNLESS ALTERED 
G41 
E62 
OLFO ZACBSC 442 ERROG LD! HL, (DK+CHADD_) 
O1F2 225D5C . 664 LD (CH ADO)» HL 
OLFS EF 665 RST ROMEKR sALLOW EXISTING ERROR THROUGH 
646 : 
647 
6693" P23 Sate ee ek a eee hee ee eae 
669 
670 
671 
472 , $THE INSERTION ROUTINE —- INITIALISES THE SHADOW ROM 
O1F7 ZAAFSC 6732 INSER1 LO HL, (CHANS_) 
O1FA 1149A3 674 LD DE,.NOT.DR 
O1FD 19 6IS ADD HL, DE SARE CHANS. & DR EWuAL? 
OLFE Be &76 JK Cl, INS2 SRETURN IF THEY ARE NQ1 
a200 212402 677 LD HL, INS_1 
O203 ES 473 FUSH HL ISTACK A RETURN ADDRESS ft 
204 ZAGSIC 6/9 LO HL» (STKBT) a Aad 
Q207 224655C 430 LD (STEEN) » HL sRESTORE CALC. SP. AFTER TEMP USE fer l 7 
O20A 21925C é31 Lo HL» SC 92H ) wor * 
OZ0D  B2435C G32 LD (MEM) >» HL more 
Oz10 21 BS5C G33 LO HL,DR-1 sINSERT AT DR : 
O212 o13A00 — 6234 LO BC,DR_LEN sTHIS MANY 
O214 110000 6gs LO DE,O sDISCRIMINATOR IS ZERO 
O219 DS : 636 : PUSH DE 
aZ14 1EO2 427 LO £,2 
OZ1it Os 633 FUSH DE 
o210 115516 639 LO DE, 1655H sINSERT IN BASE ROM 
O220 | Aba) 490 PUSH DE 
O21 C:20000 X 691 JP RETBAS, 
6972 
O224 213A02 693 INS_1 Lo! HL» SH_VARS sBASE ADDRESS 
O227 O11300 694 LD BC,VA_LEN sNUMBER OF LOCATIONS IN TABLE 
O22 11845C 695 LD DE,DR 
O22D ELIRO 696 LOIR 


tot 


OV2F 
o221 
0224 


oy cin 
O235 


O23? 


O23A 
O23B 
O23 

O23E 
24g 
oO241 
O243 
o244 
2446 
0247 
O249 


' O24A 


O24B 


o24a0 
oZ250 
O222 
0254 


255 


0257 


OBJ CODE M STMT SOURCE STATEMENT 


3EOL 
3BZEFSC 


Cc? : 


FOCB7CSE 
cy 


O2 
Foot 
21 
QWO0d 
Cu 
Onag 
Z2 
BASC 
Cc? 
ocoo 


697 
698 
499 
700 
701 
702 
703 
704 
703 
794 
707 
703 
709 
710 
7il 
712 
712 
714 
71S 
714 
717 
718 
7Aiy 
720 
721 
722 
723 
724 
725 
726 
727 
723 

29 
730 
731 
732 
733 
734 


SH_BEGIN PAGE 13 
ASM 5.9 
LD Avi 
LO (DR+CUPIES),A SONLY WANT UNE CORY NORMALLY 
RET 
INS_2 
‘ RES 1, (I1Y+FLAGS3-Y) sRESET THE AUTO-RUN FLAGS ON SECOND FATS 
RET 
SH VARS DEFB .O2H SDEFAULT FOR FLAGSS (AUTO-RUN ONLY SET) 
DEFW ERR6 SVECTOR ADDRESS 
DEFER 21H SCALBAS SUBROUTINE 
DEFW OH sLO HL,»---- 
DEFR OCDH 
CEFW OH sCALL ---- 
DEFER 22H 
DEFW OR+HOL SLO (HUL)»HL 
DEFB OC?H 3RET 
DEFW OCH SDRFAULT FOR BAUD 
DEFR O1H SDEFAULT FOR NTSTAT - OWN STATION “1° 
DEFB QOH SDEFAULT FOR IOBORD —- I/Q COLOUR 
DEFW O000H sINITIALIZE SER_FL 
VA_LEN EQU $-SH_VARS 
sSHADOW SYS. VAR. HANDLING ROUTINES 
SV_CL LD HL,» DR+NTRESF SPREPARE TO INITIALIZE THE SY. VARS. 


LD B,HD_12-NTRESP+1 SINITIALISE ALL THESE SYS. VARS. 


SV_CL1 LD (HL), OFFH 


INC HL 
DINZ,»SV_CL1 
RET 


(9O/ 


(o SH_RPTS ° FAGE 1 
toc = OR CODE M STMT SOURCE STATEMENT ASM 5.9 
13 
2 SHEE EH HE EEE EEE IESE EE HEHE EEE HEE HEE HEE SE SESE SEE HE HE HEHE HEE JE EEE EEE IE EE EE EEE JE HE JE SE EE TE GE E98 SE HE a 
7 2 3 
4 3 SHADOW ROM REPQRT MODULE  —- SH_RFTS.S 
5 3 , 
A FS FEMME HEHE EE HEE EH EEE EE EEE EE EEE EEE HEHE E EEE EE EEE ETE EEE EE HEE HEH HE 
7 3 
3 
9 #INCLUDE SH_S_V.$S 
10 3 
1 1 F MEE TE HEE HE SE HE HE IE HE HE SHE SE HE SEE SE HEE HE HE EH SE FEE HE HE HE IEE HEHE HE SE SE ESE IE SE HE SE HE Ie ESE EE EH ge a a a 
oo . . 
12 SHADOW ROM SYSTEM VARIAHLES 
14 3 
15 F HEAL HEHE SE HE HEHE HE HE HE SE HE HE EE IEE EEE HE HEHE SEE HE SEE HEHE SESE HEHEHE ESE HE HEHE FE EE IEEE HEE SE HE SEE HE IE SE HEHE EE dE SE HSE SE: 
14 3 
17 #INCL NEWVAR.S 
18 3 
19 F FEE HE AEE HE HSE HE FE HEE SEE IE SE SEE HE HE HEHE HE HEE HEHE HEE HEE HE SE JE EE dE EE dE ES HE 
20° $# NEWVAR. S # 
21 3% 27/4/83 + 
22 5 PESEAE AE EME ESE EEE EE HEHE EEE FE EEE ESE EEE HE HEHEHE HHH HHHHHHHHEEE 
23 3 
24 5 MEME AE EE HE HE HE HE EE HE FE FE SE SE HE IE SE SE HEE HE FE PEE HE HEH SE SE SE SE HE SE HE dE EE EE EEE SE SE EE 
25 34 SYSTEM EGUATES H- 
24 FS HH HEE SEH HE EEE EEE HEHEHE EEE EEE EEE EH HHH HH HHH 
“> s 
22 3 
2? FORTC EQU OEFH SUDRIVE CONTROL/STAIUS PORT 
30 FURTD El - OE7H SDATA FORT ADLIRESS 
cs 
22 SELD Eau OFEH ;DRIVE SELECT DATA 
33 SELC EQU OF DH sDRIVE SELECT ULUCckK 
34 WRITE EAU OF BH sWRITE CURKENT UN 
BS ERASE EQU OF7H SERASE CURRENT ON 
34 CTS EQU OEFH SCLEAR TO SEND UUTFUI 
27 3 
282 SYNC Eau 2 3SYNC BYTE DETECTED SIGNAL 
39° PROTECT Evu 1 SWRITE FROIECT SIGNAL 
40 GAP EQU 4 $GAP SIGNAL 
41 BUSY Eau 10H 
42 3 
43 FLEN Eau 12 sLENGTH OF FREAMBLE 
44 HOLLEN Eau FLEN+14+1 {LENGTH OF HEADER BLOCK PLUS PREAMBLE 
45 DLLEN EAU HD_LEN+S512+1 sLENGTH OF DATA BLOCK 
46 HDLMAX EDU 255 ; . SNUMNBER OF BLUCKS ON TAFE 
47 TRYS EQU 5 sNUMBER OF TRIPS ROUND TAFE 
43 SBEFORE GIVING.,UP 
4? GAPT2 EQU 340 3THE DEC BC DERAY BETWEEN READING 
50 3A HEADER, CORRECTING IT, TESTING 
51 SIF FREE ANU WRITING A DATA BLOCK 
52 GAPT1 EQU GAFT3+74 STHE DEC BC DELAY BETWEEN WRITING 
53 3A HEADER BLOCK AND WRITING A 
54 i SDATA BLOCK 
55 GAFT2 EQU S31. 3THE DEC BC DELAY BETWEEN END OF 
56 3A DATA BLUCK AND BEGINNING OF 
57 SHEADER BLOCK 
se ; ; sTHE DEC BC DELAY IS 26 T-STATES 


Pee ORE ee ee ee Pee 


» 


SH_RFTS PAGE 2 


Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
S9 sOR 7.4US 
. 60 $THE ABOVE TIMINGS ARE HOPEFULLY : 
61 $FOR A HEADER OF LENGTH S40LIS, FOLLOWED BY A GAP OF 3.04MS, FOLLOWEL 
62 s&Y THE DATA BLOCK LENGTH 21.3M5,FULLOWED BY A GAF OF 6M. 
43 3 ; 
64 ERROR Eau sERROR HANDLING IN ROM 
65 INSERT Eau sMAKE SPACE IN ROM 
66 DELREC EQU sLELETE SPACE IN ROM 
6&7 CHANS EQU SADDRESS OF CHANNEL DATA 
63 STEEN Eu SADDIRESS OF START OF SPARE SPACE 
69 STEBOT EU 
70 MEM Eau 
71 SELECT EQU SCHANNEL SELECT SUE. IN OLD ROM 
72 SENDTV EQU 7F 4H sTV CUPFUT FROCEDQURE 
73° «OUTCH EQu 16 SCHANNEL GUIPUT ROUTINE 
74 INCH EQu 1SE6H sCHANNEL INPUT ROUTINE 
733 
76 3 
77 3 SHADOW ROM SYSTEM VARIABLES 
73 
‘79 $F MEME HE AES HE ETE FE IE HEE IE TE HE HEE HE HE JE SESE AE EE HEE EH HIE SE EEE HE HE SESE HE HEE EHH EH EH HE EE 
20 3 
3 
22 
&: 3 SYSTEM RESTARTS 
84 
5S R_BASEs Eau OOOOH 
@6 ENFRY: EQU O00S8H 
87 CALBASS: EQU OO10H 
28 SYNTs El! OO1SH 
@9 SH_LERR: EQU OO20H 
90 ROMERR: EGU OO25H 
91 INSER. Eu oo30H 
92 MASK: EGU oO3s 
92 
24 
95 $3 HASSE ROM AUDRESSES 
De 
97 LAST_K EQU SCosH 
72° «4DEFADD EW SCOBH 
99 STRMS EQuU SCLOH 
1090 Y EOU SCSAH 
101) ERR_NR EAU SAH 
102 FLAGS EGU) SC3RBH 
103 TV_FLAG Eau SC3CH 
104 ERRUSP EGU SCSDH 
105 NEWFFC EAU SC42H 
106 NSFRC EQ SC44H 
107) PFC Eau SC45H 
102 SUBPFC Ett SC47H 
109 HORDCR EAU SC43H 
110 VARS EGU SC4BH 
111 CHANS. EQU SC4FH, 
112 CURCHL EQU SCS1H 
113 PROG EQuU SCSSH 
114 DATADD EGU SCS7H 
115 ELLINE EQU SCS9H 
114 CHADD EGU SCSDH 


5 a ee 


SH_RPTS PAGE 


3 
Loc OBJ CODE M STNT SCURCE STATEMENT ASM 5.9 

117 X_FTR EQU SCSFH 

» 218 FLAGS2 EGU 5SC4éAH 
119 FLAGX EQU SC71H 
120) (UDG EWU Sl /BH 
121 SCRCT EQU SCScH 
122 ATTR.P EQU SCSDH 
123 ATTR_T EQU SCEFH 
124 PLFLAG EQU SC91H 
125 DR EQU SCE4GH 
126 
127 
122 
12? $ 
LOS ARSE IEE SEE REE EEE IE HEE EERE EET EEE TEE EEE IEEE HEE 
131 54 FIXED MICRODRIVE DATA *. 
CCC. ee ee ee eS ee eS ee 
133 3 
134 «3 . 
125° $THIS FIXED DATA IS FOUNL IMMEDIATELY AFTER THE SYSTEM VARIABLES 
136 $THE SPACE IS CREATED WHEN THE SHADOW ROM IS FIRST CALLED 
137 $ 
133 FLAGS3 EQU DR $ 23724 sBIT O ... RECURSION 
13? : SEIT 1 2... ALITO RUN 
140 sBIT 2... HOOK 
141 sBIT 2... NET/RS232 
142 sBIT 4... LOAD 
142 SBIT S 1... SAVE 
144 sBIT 6 1... MERGE 
145 sBIT 7 ... VERIFY 
146 XR EQu 7 SINDICAIES VERIFY NOT Loan 
147 VECTOR Ett O1H 3223735 /4 3NEW COMMAND VECTOR FOINT 
143 SBRT EQU VECTOR+O2H  $23737 3START OF CALBAS SUBROUTINE 
149 HL EGU SBRT+O01H , 
130) =ZILCH EGU SERT+04H 
151 BAL EQU SBERT+OAH $23747 SRATE FOR RS232 
132 NFSTAT EQU BALIO+OZH $2749 3°QWN% STATION NUMBER 
153 IOBORD EQU NTSTAT+01H 322750 sBORVER COLOUK FOR I/0 
154 SER-FL EQU IQBORD+OLH 323751 7SERIAL INPUT FLAG & CHARACTER 
155 SEND OF DEFAULT SYS. VARS. 
1546 
157 
132 sSTART OF VARIABLES 
159 SECTOR EOU SER_FL+02H+DR 323753 IMICRODURIVE SECTOR 
160 CHAD _EQU SECTOR+02H-DR $23755 7 TEMPORARY STORE FOR CH_ADL 
161 NTRESP EWU CHADDL+02H 323757 PSTORE FUR RESPONSE CODE 
162 . : 
143 $THE EIGHT LOCATIONS FOR A NET HEADER 
1464 NTDEST Ett! NTRESP+01H 322753 SDESTINATIUN STATION NUMBER 
1645 NTSRCE EQU NTDEST+01H 323759 SSOURCE STATION NUMBER 
146 NTNUMB Et! NTSROE+O1H 322740 SBLOCK NUMBER 
167 NTVYPE EQU NTNUMB+O02H 323762 / 5“DATA” (0) OR “CLOSE’ (1) TYFE COLE 
162 NTLEN EQU NTTYPE+O1H $23763 SUATA BLOCK LENGTH 
14% NTOCS EQU NTLEN+01H 3223764 : SDATA CHECKSUM 
170) NTHCS Eau NTDCS+01H $23765 SHEADER CHECKSUM 
471 
172 3THE SIXTEEN LOCATIONS FOR PARAMETER COLLECTION 
173° D_STRI EWU NTHCS+01H 3237646 7TWO BYTE NUMBER 
174 S_STR1 EQU DLSTR1+0ZH 323768 SSTREAM NUMBER 


Pn ee 


Loc” OBJ CODE M STMT 


178 
176 
: 177 
172 
1729 
iso 
181 
182 
133 
134 
185 
154 
137 
188 
139 
190 
191 
192 
1923 
194 
1?5 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
204 
207 
208 
209 
210 
211 
212 
2123 


214. 


215 
214 
217 
218 
219 
220 
221 
ne ee 
ee 
2223 
224 


te 
225 


226 
227 
228 
229 
230 
231 
232 


LSTR! 
N-STRI 
DLSTR2 
$_STR2 
L_STR2 
NSTR2 


sc_oo0 
sC_oB 
Ssc_on 


SC_OF 


HD_Og 
HD_OB 
Hoo 
HD_oD 
HD_OE 
HD_OF 
HOW_10 
HO_L14 
Hu 12 


COPIES 


ROMADL 


DR_LEN 
N_-LEN 


SH_RFTS 
SOURCE STATEMENT 


EQu 
Eau 
Eu 
Eau 
Euu 
EQU 


EQu 
EQu 
EQu 
EQu 


Eulll 
EGu 
Eau 
Eau 
Eau 
Eau 
Equ 
Eau 
EQU 


EQu 


Eau 


EQU 
EQu 


D.STRL+03H 
D_STR1+04H 
DUSTR1+OSH 
D_STR1I+0AH 
DUSTR1+08H 
DOSTRI+0CH 


D.STR1+08H 
DUSTR1+0PH 
D_STR1+0BH 
OOSTR1I+0UH 


FAGE 4 
ASM 5.9 
123769 (LETTER 
323770 | SNAME DETAILS (LENUTH & START) 
322774 $ ## SECOND SET + 
323776 
323777 
323778 
323774 SSECOND SET FOR SCANN 
323775 
323777 
323779 


+THE NINE LOCATIONS FOR “SAVE*, “LOAD ETC. 


LOSTRI+1L0H 
HD_OO+01H 
HDLOR+0LH 
HO_OC+01H 
HO_OD+01H 
HD_OE+01H 
HD_OF +01H 
HD_10+01H 
HD_11+01H 


HD_L12+1 


HD_10+01H 


COPIES+O1H 
O114H 


$ RS232 FORT DETAILS 


RS232 
KB_LPT 
STATUS 
DTR 


EQU OF 7H 
EWU OFEH 
EQU OEFH 
EQU OSH 


3 NET PORT DETAILS 
SERIAL Eu OF7H 


WAIT 


ee 


SH ve we we we ve we 


Ls] 
= 


? 
ASSERT 


Eau 


OEFH 


MACROS 


MACRO #ADDR 


RST 


FALL 


ENDM 


MACRO #CONL 
COND .NOT. (#CUND) 
HHHHHHHHHHERROR IN ASSERTION #COND 


fe 


s2S7E2 STYFE COLE 
323783 SLENGTH OF BLOCK 
$2754 
323785 sSTART OF BLOCK 
$ 23784 
3237237 s3PROGRAM LENGTH 
P2732 . 
S23789 SLINE NUMBER 
$23790 

s 23771 
323739 SFASSING ADDRESS FOR HowKS 


SLENGTH OF A NET BUFFER 


SSERIAL BATA FORT 
SKEYBOARD FORT 
SSERIAL STATUS FORT 
sMASK FOR DIR QUIPUT 


sSERIAL DATA FURT 
SWAIT PORT 


gow 


HEHEHE SEE FE SEE HE HE HE SE HE HE HE SE AE HEH SE SE EE HE SE IE ESE EE ESE ESE SEE SE SEE EE HE SE SE a 


# 


HEHEHE AE HEHEHE HEE HE HE HE AEE HE SE HE HEE HE HE HE HEHE SEE SE IE IE HE SE EEE PE HEHE IE SE ESE EEE EE SE 


3THIS MACRO WILL BE USED To FLAG 
sCALLS TQ THE ROM WHEN THIS S/WARE 
31S CONVERTED TO SHADOW RUM FORM. 


» LC 


SH_RFETS -PAGE 5 if 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
233 ENDC 
. 23 ENDM 
235 $3 : 
224 OQLDCAL MACRO #SUB 
22 RST CALBAS 
223 DEFW #SUB 
239 ENDIIM 
' } i '240 $ 4 
! : '241 OLDJP § MACRO #LEST 
; 242 IP #DEST 
243 ENUM 
2443 
245 = $ 
24Q 5 { 
247 AE EIHEHISU EERIE IEEE ILI II IESE IEEE HIE 
ae ‘ 248 3% DATA # | 
Y 249 SORES AE HE SE HE HE AE EE SE SESE EE AE EEE IEE SEE EL EEE EE SEE AEE EE HE HEE 
pike 5 
S13 
282 SETAE EE EE EE EEE ECHANNEL tet He HEE ESE aE aE ae 
Zot f 
254 3 ; 
255 $THE FOLLOWING DATA Is CREATE‘ FOR EVERY OPEN MICRODRIVE FILE 
pide SAND SOMETIMES FOR A WORKSPACE IN MICRODRIVE OPERATIONS 
7 § 
258 5 i 
257 sOLU WRCH ADURESS FOINTS TO 0008 
260 $0LD RLUCH ANDRESS FOINTS To 00k 
261 CHTYFE EAU 4 SCHANNEL TYPE 
262 $NEW WRCH ANDRESS 
262 $NEW ROGH ADDRESS 
244 CHLEN EQu CHTYFE+S SLENGTH OF THIS CHANNEL DATA 
265 CHEYTE Eau CHLEN+2 SCURRENT BYTE POINTER 
246 CHREC EQU CHEY TE+2 sCURRENT RECORE 
267 CHNAME ERQU CHREC+1 $10 BYIE FILE NAME 
262 CHFLAG EAU CHNAME+10 SCHANNEL FLAGS 
2D 5 
: 270 WRFLG Eau Oo sWRITE FLAG BIT 
271 §¢ 
272 CHNRIV Eau CHFLAG+1 SDRIVE NUMBER 0-7 
273 CHMAP EQUI CHORIV+1 SAQDRESS OF GRIVE MAP FOR THIS FILE 
274 ¢ 
275 CHHUR EQU . CHMAF +2 START OF HEADER 
276 HOFLAG Eu CHHOR+FLEN SFLAG BYTE AT START OF HEADER (BITO=1) 
277 HONUMB ERY HDFLAG+1 3 NUMBER OF CURRENT HEADER/SECTOR 
272 ; . FOLLOWED BY TWO EMPTY BYTES 
279 HDNAME EQU HONUMB+3 3 TAPE NAME 
280 HOCHK Eau HUNAME+10 SHEADER CHECKSUM 
SS1 $ ; 
“82 $TOTAL LENGTH GF THE ABOVE PLEN + 15 
283 3 
2234 CHDES Eau HOCHK +1 SSTART OF DESCRIFTOR 
285 RECFLG EQu CHDES+PLEN 3FLAG BYTE IN DESCRIPTOR (BITO=0) 
2846 sBIT 1 = EOF 
287 SBIT 2 = SLYVM 
233 RECNUM EQU RECFLG+1 SNUMBER OF THIS RECORD 
289 RECLEN EQU RECNUM+1 SLENGTH OF THIS RECORD 
220 RECNAM EQU RECLEN+2 SNAME OF THIS RECORD 


‘Lac 


srety F 


oad 
Oog”g 
oous 


OOO’ 
oOnny 
Ooon 
OOLL 
Oot 
oOo14 
OOLG 
oo17 
Oo1g 
OOLB 
Oo 
oo1n 
e020 
O02 
O24 
OOL? 
007A 
oo2n 
OOZE 
ouz0 
o034 
OO3S 
0027 

0O0O3B 
~ OO3F 


OB! CODE M STMT SOURCE STATEMENT 


SH_URPTS FAGE & 


ASM 5.9 


291 DESCHK EoU RECNAM+10 SDESCRIPTUR CHECKSUM 
292 CHDATA EQU LESCHK+1 SSTART OF DATA BLOCK 
; 273 DCHK EOU CHDATA+S12 SCIATA CHECKSUM 
294 43 
275 CHANLN EQU LICH +1 SLENGTH OF ALL THIS 
276 
277 oS ee eo ee ee ee ee ee ees 
278 3 
299 $A MICRUDRIVE MAP IS A BIT MAP OF ALL SECTORS ON A MICRODRIVE 
200 $THE BITS ARE COUNTED FRUM © 10 HD_MAX-1 THE LENGTH 
301 SOF THE MAP IS THEREFORE GIVEN BY:~ 
Ba? 
303 MAPLN  EQU 32 
204 3 
305 $THE MAP IS CREATE’D FOR EVERY DRIVE CONTAINING AN OPEN FILE 
306 3 
207 #LIST ON 
303 
209 
310 
Bit GLOBAL SH_RFY 
312 EXTERNAL RETBAS 
313 EXTERNAL DELTMF 9 — SH-CLOSE 
314 
315 SH_RPT SDEAL WITH ERROR REPORTS IN RUN-TIME 
316 +THE ERRUR NUMBER POINTER IS ON THE STACK 
B17 +THE RANGE OF NUMBERS IS 00H - 1EH 
318 
FINZ47000 319 LU (IY+FLAGS3-Y), 00H +CLEAR THE STATEMENT FLAG AS EXITING 
FER a2 EI SENSURE INTERRUPT IS ON 
76 821 HALT 
223 
CloIOOO xX 32 CALL DELTMP 
FDICBOLAE a2" RES 5, (1Y+FLAGS-Y) ¢SIGNAL “NO LAST KEY AS YET- 
PICRSO4E 2h BIT 1; (IY+FLAGS2-Y) 
2803 227 JR Z,SHURL 
7 : 329 RST CALBAS 1). upPhR 
CDOE 229 DEFWOECDH > tEMPTY THE PRINIER BUFFER IF NEEDED 
E1 320 SHIRL PUP HL. 
7E 331 LO A, (HL) SFETCH ERROR NUMBER 
FD7700 22D LD (IY+ERRNR-Y) +A SSAVE I(T 
ac 323 INC A 
FS 324 PUSH AF 
210000 235 LU HL» OO00H 
cer ‘93% LD CLY4+FLAGX-Y),H sCLEAR JHESE 
FLI74Z 237 LO (1Y+X_PTR+1-Y¥) +H 
EoopSE 238 LD (DEFADI)» HL 
2c 339 INC L 
221650 240 LD (SCIGH),HL  $RESET STREAM © 
D7 341 ST CALBAS 
HOLS 342 Dera GaBOHDCLEL SCLEAR EDIT-LINE & STACK 
FDCE37AE 243 RES 5, (IY+FLAGX-Y) SIGNAL INPUT MODE 
D7 344 RST CALBAS | 4s 
4EOu 245 DEFW ODéEH > SCLEAR THE LOWER SCREEN 
FOICROZEE 346 SET 5S, CIY+TV_FLAG-Y) SSIGNAL “CLEAR LOWER SCREEN AFTERWARDS’ 
FLICBO29E 247 RES 3, (1Y+TV_FLAG-Y) SCORRECT THE ERROR 
Fi 243 FOP AF SCOLLECT ERRUR NIIMBER 


. SH_RPTS FAGE 7 
Luc OB. CODE M STMT SQURCE STATEMENT ASEM 5.9 
0040 «= 215FOO R349 LD HL, BASRPT SERROR MESSAGE BASE 
0042 9604 | e500 LO 8,04H SBC NUST EXCEED LENGTH UF MESSAGES 
oo4s  EDBL 354 CPIR SFIND THE START OF THE MESSAGE REQUIRED 
0047 FE #52 SHR2 LD A, (HL) S$FEPCH EACH LEI TER 
OOds FESO 253 CP 20H sEXIT AT END OF MESSAGE 
On4A = BBOS 254 JR C,SH_RB 
voac ES 355 PUSH HL 
o04n 7 256 RST CALBAS 
ON4—E = 1000 257 DEFWCOO1OHD VRC 
oo30 8 6 EL 258 POP HO SFETCH AND ALIVANCE THE POINTER 
oOst 22 as INC HL 
O0S2 18F2 240 JR SHRZ 
341 
9054. ED7BaNSC 342 SH_-R3 LD SP,(ERRSP) $sDROQF THE MACHINE STACK 
oose 32 362 INC. SP ae 
o0s? 33 344 - INC SF af in ns heehee CALE PES 
OSA 214913 265 LD HL.G349H > -~ EPIT, LEDS 2, OF™ 
oosn = «ES BOG PUSH HL 
OOSE = C7 247 RST R_BASE TEXIT 
368 
249 
270 $THE ERROR MESSAGES 
371 
OOSF = a0 272 BASRPT DEFBR O 
0060 SO724F47 373 CFM “PROGRAM FINISHED’ 
o070 O41 374 . DEFB 1 
OO71  4EGFLE72 275 DEFM “NUNSENSE IN BASIC’ 
oo0s2 o2 376 DEFB 2 
QOS3 4vSE7441 277 _ DEEM “INVALID STREAM NUMBER’ 
Q 03 378 DEF 3 
HOI  AILE7SOL 379 DEFM “INVALID QEVICE EXPRESSION’ 
OORS O4 330 DEFB 4 ; 
OOHRS 494E7661 «Bal DEFM “INVALID NAME“ 
OOBF OS : 382 DEFER S 
oor APCETESI 323 DEFM “INVALID DRIVE NUMBER’ 
oon4 04 284 DEFB 6 
OOS  AVLE7&61 225 DEFM “INVALID STATICN NUMBER~ 
OOEH = 07 334 DEFER 7 
OOEC 40427273 287 DERM “MISSING NAME“ 
OOFS Of 228 DEFR & 
OOF? 40697373 289 DeEEM “MISSING STATION NUMBER 
_OLOF OP 370 DEFB SY | 
O110 © 40497272 Bet DEFM “MISSING DRIVE NUMBER 
o124 OA B92 DEFB GAH 
o1z5 = 40497372 392 DEFM “MISSING BAUD RATE’ 
0124 OB 394 DEFB OBH : 
O127 484546164 295 DEFM “HEADER MISMATCH ERROR’ 
o140 Oc 396 [EFB OCH 
o14n 53747265 297 CEFN “STREAM ALREADY OPEN’ 
O160 OD ava DEFE ODH 
O161 S7726974 B99 EFM “WRITING TO A * 
OQ1GE 27 400 _DEFR 027H 
O1GF 726546164 401 DEFM READ’ 
OQ172 = 27 402 DEFB 027H 
0174 = 2046694C 402 DEFM - FILE’ . 
0179 OE 404 DEFB OEH 
O17A = 2656164 405 DEEM “READING A * 
O184 0 27 406 DEFB 027H 


rn ee a 


vac 


OLVES 
OLA 
O12R 
oOpeo 
o1el 
O1?7 
O1?78 
o19D 
O1SE 
O1Ag 
OLA? 
OLBS 
OLR? 
O1LCF 
o1no 
O1DE 
O1DF 
OLEE 
OLEF 
OFS 
OLF? 
O1FA 
OLFF 


O205 


SH_RPTS 


PAGE 8&8 


OR CODE M STMT SQURCE STATEMENT 


77726974 
oF ‘ 
BOLAEAPEE 


27 
77I2E974 
27 
2070726F 


OY OL 


13 
ASCPGF GB 
14 
434F 4445 
2065/7272 
iS 
404535247 
20657272 
14 


MOS OS 


57 726F GE 
13 


407 
408 
409 
410 
ait 
412 
413 
414 
415 
416 
417 
413 
419 
420 
421 
422 
423 


424 


425 
426 
427 
422 
429 
4320 
421 
422 
433 
434 


DEFM 


DEFB 
DEFM 
DEFR 
DEFM 
DEF RB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFER 
DEFM 
Dkr RB 
DEFM 
DEFB 
DFM 
DEFB 
DEFM 
Dero 
DEFR 
DEFM 
DEFM 
DEFB 
DEFM 
. DEFB 
DEFM 
DEFB 


“WRITE* : 
027H ; 
* FILE’ 
OFH 
“DRIVE * 
027H 
“ WRITE’ 
027H . 
* PROTECTED’ 
10H 
“MICROURIVE FULL ~ 
11H 
*MICROURIVE NOT PRESENT~ 
12H 
“FILE NOT FOUND’ 


“HOOK CODE ERROR’ 
14H 

“CODE * 

7 ERROR’ 


“MERGE “ 

* ERROR? 
16H 

“VERIFICATION HAS FAILED’ 
17H 

“WRONG FILE TYPE’ 
18H 


ASM 5.9 


LOC, OBJ CODE M STMT 


GW ty oy ow te 
QN MR Whe S 


a] 


- SHSYNTAX PAGE 1 
SOURCE STATEMENT ASM 5.3? 


MRE EEE EEE EEE EE EEE HHH HERE 


we we wo 


ue ve we 


“a 


SYNTAX/INTERPRETER MOLULE 


#INCLUDE SH_S_V.S 


~ 


INCL 


we v8 we ve we ws ve we we ws ve ye ve we ve ve ve «i 


PORTC Eau 
FORD EQu 
SELD Eau 
SELC Euu 
WRITE Eau 
ERASE Eau 
Cts EQu 
SYNC Eau 
PROVECT 

GAP EQu 
BUSY Eau 
FLEN EQu 
HOLLEN EWU 
D_LEN Eau 
HD_LMAX EGU 
TRYS Eau 
GAPT3 Eau 
GAPT1 Eau 
GAPT2 EQu 


NEWVAR.S 


FH HE ESE EEE HEHE HEHE HEHE HEHE SE HE HEHE SE SE HE HEE SE EEE SEE ESE EE EE HE IEE HEE HE SEE HE EE HE SEE EE EE EE EEE EE a a 


3 ME AE HEE EE HE HE HE HE HE EE HE HE HE SE HE SE HE HE SE HE HE EE EF IE ESE HE HE SEI SE EEE HIE SEE EE HEE SE HE HH I EH SEE AE I SEH a aE EH 


SHADOW ROM SYSTEM VARIABLES 


OEFH 
OE/H 


QFEH 
OFTIH 
OF BH 
OF 7H 
QEFH 


12 
PLEN+14+1 


HD_LEN+512+1 — 


255 


GAPT3+74 


831 


sUDRIVE 


FEE EAE HERE HEHE EAE HE HE TEE FE SE TE SE HE SEE HE HEE HE HEE HEHE TEE SEE ESE ESE AE SEI EE HE HEHE ETE HE HE EE SE HE JE IE SE SE EEE a aE aE 


FSIS SE ESE AEE EE EEE HEE SE EERSTE TERE TEE EEE HEE IEE IE ETE EE ge 
# NEWVAR.S 
+ 29/4/33 
AEE HE TE IEE HEE IEE EAE HE HEHE AE AE TEE IE HE HE RPE IE AE HE HAE TEE TE SEE TERE HE PE HE SE EGE TE HE EE HEE aE 


# 
# 


FERRE TE SEE HE HEHEHE HEE EE HE HEE IEE HEE EE EE SEES EE ETE SE EE HE EE EGE 
# SYSTEM EQUATES 
FE HEFE IEEE HEE FE SE HE IEE HEHE HEHE IE SEE SE AEE AE IEEE SE JE SE EEE SESE IESE ESE HEE EEE TEE HE EE 


# 


CONTROL/STATUS FORT 


SDATA FORT ADDRESS 


s DRIVE 
S DRIVE 
+WRITE 
s ERASE 
sCLEAR 


SELECT LATA 
SELECT CLUCK 
CURRENT ON 
CURRENT ON 

TO SEND GUTPUT 


sSYNC BYTE DETECTED SIGNAL 


SWRITE PROVECT SIGNAL 


SGAP SIGNAL 


3 LENGTH 
sLENGTH 
3 LENGTH 


OF PREAMBLE 

OF HEADER BLOCK PLUS FREAMBLE 

OF LATA BLOCK 

SNUMBER OF BLOCKS ON TAFE 

INUMBER OF TRIES ROUND TAFE 
sBEFORE GIVING UP 

s;THE DEC BC DELAY BETWEEN READING 
$A HEADER, CORRECTING Ir, ESTING 
SIF FREE ANU WRITING A DATA BLOCK 
$THE DEC BC DELAY BETWEEN WRITING 
7A HEADER BLOLE AND WRITING A 
sDATA BLOCK 

3THE DEC BC BELAY BETWEEN END OF 
3A DATA BLOCK AND BEGINNING OF 
sHEAVER BLOCK 

3THE DEC BC DELAY 1S 26 T-SIATES 


¥ 


SH.SYNTAX FAGE 2 
LOC OBJ CODE M STMT SUURCE STATEMENT ASM 3.? 


sOR 7. 4US 


STHE ABOVE TIMINGS ARE HOPEFULLY 
sFOR A HEADER OF LENGTH 840US, FOLLOWED BY A GAP OF 2.046M5, FOLLOWED 
DATA BLOCK LENGIH 21.2N5,FOLLUWED BY A GAP OF 6M, 


sBY THE 


ERROR 
INSERT 
DELREC 
CHANS 
STEEND 
STEBOT 
MEM 
SELECT 
SENDTV 
QUTCH 
INCH 


we we we ve we we we 


ue 


R BASES 
ENTRY: 
CALBAS: 
SYNT® 

SH_ERR: 
ROMERR: 
INSERW 
MASE: 


5 BASE 


LAST_K 
DEFADD 
STRMS 
Y 
ERR_NR 
FLAGS 
TV_FLAG 
ERR_USP 
NEWPFC 
NSPPC 
FFC 
SUBFPC 
BORLCR 
VARS 
CHANS. 
CURCHL 
PROG 
DATADD 
E_LINE 


‘CH ADD 


EAU 
EQu 
Eau 
Eau 
EAU 
FOU 
Eau 
EQU 
EQu 
Eau 
Eau 


Ewtt 


Ew 
EQU 
EQU 
EAU 
Eu 


ROM 


EQUI 
Eou 
Em 
EC 
Eu 
Eau 


Equ ' 
EQu 5 


Eau 
EQu 
EvU 
Eau 
EQU 
EQu, 
Eau 
EQU 
EEUU 
EQu 
Eau 


SERROR HANDLING IN ROM 

SMAKE SFACE IN ROM 

SDELETE SPACE IN ROM 

SADDRESS OF CHANNEL DATA 
SADDRESS UF START OF SPARE SFACE 


SCHANNEL SELECT SUB. IN OLD ROM 
sTV OUTFUT PROCEDURE 

SCHANNEL OUTPUT ROUTINE 
SCHANNEL INPUT RUUTINE 


SHADOW ROM SYSTEM VARIABLES 


FETE SE FETE EAE HE HE HEH HE AE HEE HEH HEE SEE HE HEHE SESE FES HE HEE HES HE HE EE SEE SE EEE SE IE HE HE EE IE EE SEE SEE SE ESE SE SE EH: 


SYSTEM RESTARTS 


Eau! OOOOH 
QO008H 

Eau QO10H 
OO1SH 
0020H 
O022H 
O030H 
OOSSH 


ADURESSES 
SCOSH 


SCOBH 
SC1OH 


SCS?H 
SCSDH 


Loc . OBJ CODE M STMT 
117 
118 

£ 119 
120 
121 
122 
123 
124 
125 
124 
127 
123 
12°? 
130 
131 
132 
122 
134 
135 
1236 
137 
135 
13? 
140 
141 
142 
143 
144 
145 
144 
147 
148 
14 


ist 


174 


SH_SYNTAX PAGE a 
SOURCE STATEMENT ASM 3.9 
X.PTR Ea SOSFH 
FLAGS2 EQU SCéAH 
FLAGX EGU SC71H 
UDG Eau SC7BH 
SCHCT Eau SCscH 
ATITRLP EQU SCeDH 
ATTR.T EQU SCEFH 
PFLAG Eu SC91H 
DR EQU SCB6H 
FEE EERE HEHEHE EEE IEE HEE 
+ FIXED MICROORIVE DATA ; * 
JAI IHEEEIE IEEE REE tt E ALi Eat it 


Tl ve we we we ve we ve wa we 


THIS FIXED DATA IS FOUNL) IMMEDIATELY AFTER THE SYSTEM VARIABLES 
THE SPACE [S CREATED WHEN THE SHADOW ROM IS FIRST CALLED 
LAGS3 EAU DR $22734 SEIT O ... RECURSION 
sEIY 2... ALITO RUN 
SEIT 2 we. HOOK 
SHIT 3 12. NEM/RS232 
SBIT 4... LOAD 
3BIT 3S... SAVE 
SBIT 6 ... MERGE 
SHIT 7 ... VERIFY 
XR Eu 7 SINDICATES VERIFY NuT LOAD 
VECTOR EQU O1H $23735/6 SNEW COMMAND VECTUR FOINT 
SBRT EQU VECTOR+O2H  $22727 SSTART OF CALBAS SUBROUTINE 
HL EC! SBRT+O01H 
ZILICH EQU SERT+04H 
BAUD EQU SBRT+0AH $ 23747 SRATE FOR RS232 
NTSTAT EQU BAUD+O2H §22749 $°UWN? STATIUN NUMBER 
IOKORD EQU NTSTAT+O1H = $23750 SBORDER COLOUR FOR 170 
SER_FL EQU IUBURD+O1H 322/751 sSERIAL INPUT FLAG & CHARACTER 
SEND OF DEFAULT SYS. VARS. 
SSTART OF VARIABLES ; 
SECTOR EQU SER_FL+02H+UR 23/33 SMICROORIVE SECTOR 
CHADD. EQU SECTOR+02H-DR $223755 3 TEMPORARY STORE FOR CH ADD 
NIRESP EQU CHADDL+02H $3 23757 SSTURE FOR RESPONSE COE 
:THE EIGHT LOCATIONS FORA NET HEALER 
NTDEST “EQU NTRESP+O1H 323758 SDESTINATION STATION NUMBER 
NTSRCE EQU NTDEST+O1H 323759 sSOURCE STATION NUMBER 
NTNUMB EGU NTSRCE+O1H $$ 23760 sELUCK NUMBER 
NTTYPE EQU NTNUMB+02H 323762 3°DATA’ (0) OR “CLOSE’ (1) TYPE CODE 
NTLEN EQU NTTYPE+O1H  $23763 sDATA BLOCK LENGTH . 
NTDOCS EQU NTLEN+01H 923764 sDATA CHECKSUM 
NTHCS Eau NTDCS+01H $23765 SHEADER CHECKSUM 
STHE SIXTEEN LOCATIONS FOR PARAMETER COLLECTION | 
DS'tR1 EQU NFHCS+01H 323766 3;TWO BYTE NUMBER 
S.STR1 EQU DUSTRiI+02H #23769 sSTREAM NUMBER 


elles tipi cic att te ee 


SH-SYNTAX PAGE 4 


LOG OBJ CODE -M STMT SOURCE STATEMENT ASM 5.7 
175 LISTRI EWU DUSTRI+03H 323749 sLETTER 
d 176 NSTRI EQU DUSTR1I+04H 323770 SNAME DETAILS (LENGTH & START) 

. 177 DLSTR2 EWU D_STRI+08H 323774 3 ## SECOND SET ## 
172 S_STR2 EQU DLSTRI+O0AH 323774 
1792 LiSTR2 EQU D_SIRI+OBH = 323777 
130 —~STR2 EQU DLSTRI+OCH 323772 
131 
182 
183 SC_OU EGU DLSTR1+08H 4323774 sSECOND SET FOR SCANN 
184 SC_oR EQU DUSTR1I+09H $232775 
iss) sc_op EQU DLSTR1+OBH 323777 
184 SC_OF EWU DLSTRI+O0LDH 322779 
1g7 
128 
129 3THE NINE LOCATIONS FOR “SAVE, “LOAD? ETC. 
190 HDL0O EGU D_STRI+10H 323782 STYFE CODE 
191 HD_OB EAU HD_OO+01H 3783 SLENGTH OF BLOCK 


192) ~=HD_LoC EEUU HDLOB+OLH 
193 HDOLoLU EQU HDLOC+01H 


? 

3 

3 

3 SSTART OF BLOCK 
174 HO_LOE EGU HD_OD+O1H 3 

? 

? 

i 


G9 ia Oo 


NMMNNN 


195 HD_OF EQU HD_GE+O1H 
196 HD_10 EQU HD_OF+01H 


sPROGRAM LENGTH 


197 HD_11 EQU HD_10+01H 2 sLINE NUMBER 

198 HD_12 Ewuu) HD11+01H 23790 

199 

200 COPIES EQU HD_12+1 322791 

201 ' 

202 

202 ROMADD EAU HD_10+01H 323789 sPASSING ADDRESS FOR HOOKS 
204 

205 DRILEN EQU COPIES+01H 

204 N_LEN EQU O114H SLENGTH CF A NET BUFFER 

207 : 

208 

207 $3 RS232 PORT DETAILS 

210 

211i R222 EQU OF7H SSERIAL DATA FORT 

212 KBLPT EG! OFEH sKEYROAKDO FURT 

2123 STATUS EQU OEFH TSERIAL STATUS FORT 

214 DTR Ewul OSH . sMASK FOR DIR GQUTPUT 

215 

216 $ NET PORT DETAILS 

217 SERIAL EGU OF7H sSSERIAL DATA FORT 

218 WAIT EQU OEFH sWAIT PORT 

219 

220 $ 

221 3 

222 > ME FETE HEHE HE HE SE HE HE SE SEE HE HE HE SE HE SEE HEE FE IESE SE SE HE ES SE He Ee Ede EEE IE EEE EEE HE 

222, 3% MACROS , _ # 

224 S WEGE SESE HEHE HE HE Se SE HE SE FE IE SEE EH HE SEE HE HEE HE HE SE HE EE SE SE HE SE SE ESE Se EE EE EEE EE 

226 RST MACRO #ADDR 3THIS MACRO WILL BE USED TO FLAG 
227 RET #ADDR sCALLS 10 THE ROM WHEN THIS S/WARE 
222 _ENDM ‘ s1S CONVERTED TO SHADOW ROM FORM. 
227 3 e 

230 ASSERT MACRO #COND 

231 COND .NOT. (#COND) 

232 HHHHHHHHHHERROR IN ASSERTION #COND 


SH.SYNTAX PAGE §$ 


LOC, OBJ COLE M STMT SQURCE STATEMENT ASM 5.9 

233 ENDC 
234 ENDM 

: 235 3 
236 OLDCAL MACRO #SUB 
237 RST CALBAS 
228 DIEFW #SUB 
2329 ENDM 
240 3 
241 OLDIP MACRO #DEST 
242 UP #DEST 
243 ENDM 
244 3 
245 3 
Z4G 3 
247 3 HEHEHE HEHEHE FETE HE HE SE HE HEE HE HE HE HE HEH SESE SESE Hd ES IE 9 ESE SE EEE IESE HEE I I GE 
248 3% DATA ; # 
BAD FFE EEE HEE AE FE HE EH IE HE FE IE HE HEHEHE IEE HE SE SESE SE HE ESE SE EE HEE HE HE JE SE EE SE SE 
250 ¢ 
251 3 
2s 3 FETE SE HE FE IE HE HE HE HE HE HE SE SEE IE ESE SEE HANG LL 36 46-34 Jt 46 EEE Ie Ed HE SEE 
252 3 
254 $ 
255 $3THE FOLLOWING DAIA IS CREATED FOR EVERY OPEN MICROURIVE FILE 
256 SAND SOMETIMES FOR A WORKSPACE IN MICRODRIVE UPERATICNS 
257 3 
252 3 
259 $0LD WRCH ADLIRESS POINTS TQ C008 


260 SOLO RDCH ADDRESS FOINTS TO 0008 

261 CHTYPE Eu 4 SCHANNEL TYPE 
262 $sNEW WRCH ADURESS 

263 sNEW RDCH ALIDRESS 


264 CHLEN EQ CHIYPE+S LENGTH OF THIS CHANNEL LATA 
265 CHEYTE EGU CHLEN+2 sCURRENT BYTE POINTER 
266 CHREC  ERU CHEYTE+2 SCURRENT RECORD 
267 CHNAME EGU CHREC+1 310 BYTE FILE NAME 
; 269 CHKLAG ERY CHNAME+10 SCHANNEL FLAGS 
249 
270 WRFLG EAU 0 SWRITE FLAG BIT 
271 3 
272 CHDRIV EU CHFLAG+1 DRIVE NUMBER 0-7 
2732 CHMAP = ELU CHURIV+1 SALORESS CF DRIVE MAP FOR THIS FILE 
274 $3 
275 CHHDR ~~ EAY CHMAP+2 SS1TART QF HEADER 
276 HOFLAG Eau CHHOR+PLEN ;FLAG BYTE AT START UF HEADER (B1TO=1) 
277) HONUMB EAU HUFLAG+1 NUMBER OF CURRENT HEADER/SECTOR 
278 : SFULLOWED HY TWO EMPTY BYTES 
279 HDNAME EAU HONUMB+3 TAFE NAME 
280 HICHK EQU HONAME+10 sHEADER CHECKSUM 
281 3 : 
282 $sTOTAL LENGTH OF THE ABOVE PLEN + 15 
22 43 
224 CHDES | Equ HOCHK+1 . SSTART OF DESCRIPTOR 
2285 RECFLG Eau CHOES+PLEN FLAG BYTE IN DESCRIPTOR (B1TO=0) 
236 ‘ +BIT 1 = EOF 
287 3BIT 2 = SLVM i 
283 RECNUM EQUI RECFLG+1 sNUMBER OF THIS RECORD 
289 RECLEN EQU RECNUM+1- SLENGTH OF THIS RECURD . 
270 RECNAM EGU RECLEN+2 S3NAME OF THIS RECORD 


Ce ee eae ony Se ee oe 


SH_SYNTAX PAGE & 


* Loc OBJ CODE M STMT SOURCE STATEMENT ' ASM S.? 
: 291 DESCHK EQU RECNAM+10 sDESCRIPTOR CHECKSUM 

‘ 292 CHDATA EQU _ DESCHK+1 sSTART OF DATA BLOCK 
273 ODCHK EQU CHDATA+S12 SOATA CHECKSUM 
274 $ 
295 CHANLN EQU DCHE +1 SLENGTH OF ALL THIS 
276 3 ‘ 
297 3 HE FE HE FE TE HEE FE PEE HE IE SE HEE HE MAY SE HEE SE SE EEE EE EE IE SE HE IEE EEE HE EE 
293 3 


299 $A MICROURIVE MAP IS A BIT MAP OF ALL SECTORS ON A MICRODRIVE 
300 $THE BITS ARE COUNTED FROM O TO HD_MAX-1 THE LENGTH 
S01 $OF THE MAP IS THEREFORE GIVEN BY:— 


202 MAPLN  EQU 22 
304 3 . 
205 $sTHE MAP IS CREATE“D FOR EVERY DRIVE CONTAINING AN OFEN FILE 
306 3 
307 ¥#LIST ON 
3028 
30? 
310 
211 GLOBAL SCAT 
B12 GLOBAL S_FORM 
313 GLOBAL SUMOVE 
314 GLUBAL S_ERAS 
315 GLOKAL S_OPEN 
314 GLUBAL END. STLEND. N_CHEK, N_NANE 
317 GLOBAL LETT, ENU_ER, COMM, MNCHEK 
218 GLUBAL S_CLS 
219 GLOBAL S_CLR 
B20 EXTERNAL RETBAS on 
321. EXTERNAL ACT_FT, ACTLaT — SH-PORT 
222 EXTERNAL ACT_FM, ACTLOM — sp-PRIVE 
B23 EXTERNAL ACT_ON SVE D 
224 EXTERNAL ACT_CA, ALT_ER, ACTLMQ <6 4 -PRI\VE 
325 EXTERNAL CL_STR SH-CLOSE 
B24 
227 
BOO OB ora AC ee Se ek oe Sete te et Pe ee a i et 
229 
230 
331 S_CAT 7CONSIDER A “CAT” STATEMENT 
oooo = 21nesC 332 LD HL.UR+S_STRI SSTREAM SYS. VARS. 
O003 32402 233 LD (HL),O2H +BY REFALILT STREAM O2H 
coos D7 224 RST CALBAS 
0004 2000 325 DEFW 0020H = $STEP ON 
e008 FEOD a6 CP ODH SEND UF LINE 
Qooda 2802 337. JR 2,S CATL 
eooc FEZA 238 CP 3AH SEND OF STATEMENT? 
OOOE CAFDOL R 33? S_CAT1 UP Z,MDN_ER 3°MISSING DRIVE NUMBER’ (RUN-TIME ERROR ONLY) 
OO11 FE2S 240 CP 23H 3s HASH? 
0012 2008 241 JR ONZ,S_CAT2 
oo1s encsot R 342 CALL N_STR SFETCH THE “NEXT’ STREAM NUMBER 
oo1g CN2B0O1 R 343 © CALL ‘COMM sINSIST ON A SEPARATOR 
OO1B 200F 344° JR NZ,ENDI_LER 
oo1iD 67 345 RST CALBAS 
OO1E 2000 346 LEFW 0020H TSIEP CIN 
002006 CD?s0o1 = dR) 347) SO S_CAT2.) «CALL NUMB_L 3FETCH A NUMBER 


0023 CD3101 R 348 CALL ST_END sINnSIST THE STATEMENT FINISHES 


SH_SYNTAX FAGE 7 
LOG OB CODE M STMT SOURCE STATEMENT ASM 5.9 
249 
250 sCAT RUN-TIME 
0026 CDE701° R 251 CALL DR_CHK $CHECK IT IS IN RANGE FOR A DRIVE NUMBER 
ooze? Cz20000 xX 352 JP ACT_CA SACT ON THE “CAT” STATEMENT 
953 
254 
RE ec hd lag Mia eta ge atc A Ed ie alte Be Oe te 
BSG 
257 
cozt «EZ 358 ENDER RST SH_ERR 
oo2zD 600 ase DEFB OOH s“NONSENSE IN BASIC’ 
B40 
261 
a SU a at tea gr el cles ee a cats a Pe ot i Se ts ot 2 
263 
ROA 
245 
346 S_FORM SCONSIDER A ‘FORMAL’ STATEMENT 
OOZE CN2COL R 247 CALL NLLETT SFIND THE “NEXT LETTER & A NUMBER IF PRESENT 
CUZBOL R 349 CALL COMM sLOOK FOR A SEPARATOR 
2008 B49 UR NZS FORA sJUMP IF NG MURE 
cDAP01 R 370 CALL N_NAME sFIND THE “NEXT* NAME 
CDZz101 R 371 S_FUR1 CALL ST_ENG sINSIST THE STATEMENT ENDS 
272 
372° -  SFORMAT RUIN TIME 
oOzC  BAnISC 274 LD A, (DR+L_SIRt) FETCH THE LEITER 
OO02F FES . 375 CP S4H sIS IT *1* ? 
0041 ° B04 B74 JR Z,S_FOR2 
0043 FEA? 2377 CF 42H $158 IT “BY 7? 
0045 2004 272 JR NZ,S3—FOR3 
0047 CD2A02 R 379 S_FOR2 CALL B_CHEK SCHECK BAUD RATE SPECIFIED 
oo4A = CzO000 |=—X BOC JP ACT_FT SACT CIN “ FURMAT "IT" *« & 7 FURMAT "RB" ¢ 
2910 
292 
o04D FE4E 283 S_FOR3 CP 4EH sIS IT “NY ? 
OO4E 2010 284 JR NZ. S_FUR4 
ooS1 CHOP02 R 285 CALL N_CHEK CHECK THE STATION NUMBER 
oos4  eAnASC ered 9 LD A, (DR+D_STRL) SKETCH NET NUMBER 
0057 a7 237 AND A 
oose cCALe02 R Bag JP Z,ISN_ER 300 NOT ALLOW - FURMAT "N",O 
OOSR = 2ECS5C 229 LD (DOR+NTSTAN A | GIVE UWN STATIUN & NEW NUMBER 
OOSE CBIBO1 R 390 JP ENDL 
avi 
oo44 CDFFOL R 392 S_FOR4 CALL MNCHEK 31S IT ° "M",URIVE NUMBER, FILENAME’ ? 
0064  C380000 xX 393 JP ACTEM 7ACT ON * FORMAT "M", DRIVE NUMBER, FILENAME ~ 
204 ’ ; 
295 
BOG: fi See hd Ste tua eo ee oe he ee at dle te ade ath Pile, 
297 
B98 
399 
400 
401 S_OFEN CONSIDER AN “OPEN STATEMENT 
0067 cNcCse1 R 402 CALL NUSTR 3FIND THE “NEXT STREAM NUMBER 
0068 CH2ZHO1 R 403 ' CALL comm s INSIST ON THE SEFARATOR 
OO4D 20D 404 JR NZ, ENDER 
VO6F CD4COL R 405 CALL N_LETT tFIND THE “NEXT” LETTER & NUMBER (IF PRESENT) 
0072 CDOZRO1 R 406 CALL COMM 31S THERE A SEPARATOR? 


SH_SYN1TAX FAGE 3 


Loc OR! COLE M STMT SQURCE STATEMENT ASM 5.9 
0075 2003 407 JR NZ,»S_OP4 
0077. CDAP01L R 408 CALL N_NANE sFIND THE “NEXT’ NAME 
0074 CD2i0L R 409 S_OP1 CALL ST_END SINSIST THE STATEMENT ENDS 
410 
Ali 7OPEN RUN-TIME 
oo70  2Angsc 412 | LD A, (DR+S_STRL) sFETCH STREAM NUNBER 
00380 D7 413 RST CALBAS ma 
o0g1 2717 414 DEFWCi 727 LS sFETCH STREAM CKFSET 
0084 211100 aS LD HL,0011H SCLOSED STREAMS HAVE 0000H 
41s SPERMANENT STREAMS HAVE O000H — OO10H 
A? 417 AND A 
ED42 419 SBC HL, BC STEST IF CLOSED BUT NOT A PERMANENT 
PELE M19 JR C,SAQ_ER 
ZALISC 420 LD A, (UR+L_STR1) $FEICH THE LETTER 
FES4 421 CP 54H SIS IT “Te ? 
oorO = - #804 422 JK Z,S_0P2 
00?2  FE42 423 CP 42H 31S IT “-B¢ ? 
our4 42 JR NZ, S_OP3 
OOF X 425 S_OP2 9 UP ACT_O SACT ON % OPEN STREAM, "T" ~ & * OPEN STREAM, "EY 
O09 426 S_UP3 CP 4EH sIS IT “Ne ? 
OOVE 2004 427 JR NZ,S_OR4 
oo7D chov0z R 428 CALL N_CHEK sCHECK THE STATICN NUMBER 
OOAQ C30000 xX 429 JP ACT_ON FACT ON * CPEN STREAM, "N", STATION NUMBER - 
COA CUFFOL R 420 S_OP4 CALL MNCHEK 31S IT * "M",URIVE NUMBER, FILENAME 7? 
OOAS C30000 xX 421 JP ACT_OM sACT ON * OPEN STREAM, "M",LIRIVE NUMBER, FILENAME 
422 
33 
OOA? ET 424 SAQ_ER RST SH_ERR 
OOAA OR 435 DEFB OBH $“STREAM ALREALY OPEN? 
424 
BT Ri ca Seen eid ay ae tataed ulate mi es as el oR A tet oe 
438 
439 
440 
441 - 
442 S_ERAS ;CONSIDER AN “ERASE” STATEMENT 
ooaB «=6Chino2 =R 442 CALL NLE INN sFIND “LETTER, NUMBER & NAME 
OOAE CD3101 R 444 CALL $T_ENL s INSIST THE STATEMENT ENUS 
445 
444 sERASE RUN-TIME 
OOBL CDFFOL R 447 CALL MNCHEK 31S IT “M’, DRIVE NUMBER, NAME 
OpH4 C30000 XxX 44z JP ACT_ER SACT ON * ERASE "M", DRIVE NUMBER, FILENAME < 
: 449 
SS i sce tr I a et a ats en BE 
451 
452 
453 
454 S_MOVE ;CUNSIDER A MOVE. STATEMENT 
OOR7 CD3202 R 455 CALL ST_V_F SSTREAM OR FILE? 
OOBA CDIP0L R 456 CALL SV_1_2 $SWITCH OVER THE SETS 
oosn = D7 457 RST CALBAS 
. OOBRE 12800 452 DEFW OO1SH $FETCH PRESENT CHARACTER 
coco = FECC 459 CP OcCcH , 315 1T “Tar 2 
oocz 203A 460 _ dk NZ,SC_ERR a 
o0c4 CD3302 R 441 ' CALL ST_V_F SAGAIN STREAM OR FILE? 
ooc7 CD1I901 Rk 442 CALL $V_1_2 sSWITCH BACK THE SETS 
oOcA D7 463 RST CALBAS 
vOCcH = 1800 464 DEFW 0018H $GET PRESENT CHARACTER 


Se te ee ee ner a Sere 


: , SH_SYNTAX PAGE 9° 


Loc OBJ COLE M STMT SQURCE STATEMENT ASM 5.9 
oocn cDsi0L = R 465 CALL ST_END SINSIST STATEMENT ENDS 
Aad 
447 MOVE RUN-TIME 
oone cRe000 xX 442 JP acr.ma 
469 
470 “ton iia ae tas 28S Sg Bes rt DS as aha ery a Ras RR a ah a aa mre 
A71 
472 
472 
474 S_CLS SGIVES DEFAULT SCREEN 
oons 07 ATS RET CALBAS 
Cond = 2000 A7b LEFW OOZOH ISTEP ON 
OO FEZ 477 CP 23H 3 HASH’ CHARACTER 
oons 2024 472 JR NZ+SC_ERR 
oon |° 27 479 RST CALBAS 
CODE 2000 480 DEFW 0020H SS1EP ON PAST “HASH? 
conn cEeio1 R 48 CALL ST_ENU SSTATEMENT MUST END HERE 
432 
483 RLUIN-T IME 
OOEO 4za Lo 
DOE ass LD $SET PERMANENTS 
OOES ; Ag LD (ATER. che SSET TEMPORARIES 
ODE? ELT SOE 437 LD (LY+HORDOR=Y) +L $SET BORDER 
OOEC  FD74S7 422 - LD. CIY+P_FLAG-Y)>H SCLEAR ALL FLAGS IN P_FLAG 
COEF  B2E07 . 429 LD A,O7H 
OOF1 USFE 490 ous (OFEH) >A sige 1S MALE WHITE BEFORE THE SCREEN IS CLEAKED 
OOF3s 07 Avi ST CALBAS 
COF4 4BOD 492 DEFW CODER KC LEAK THE SCREEN GIVING THE ORIGINAL COLOURS 
OOFS C23B01 R 492 JP END 
424 
ag5 
BOS. Peni cei ee See ee oS oe i et ot ae eek arr eraeie 
497 
Ag2 
479 $_CLR SCLEARS ALL STREAMS 
OOF? D7 500 RST CALBAS 
OOFA 2000 S01 DEFW OO20H SSTEP ON 
OOF  FEZ3 S02 CP 23 tHASH? 
COOKE C22c00 R SOB SCLERR UP NZ,ENULER 
o101 D7 504 RST CALBAS 
0102 2000 505 DEFW 0020H 3STEP FAST THE HASH 
0104 CHa101 R 506 CALL ST_END SSTATEMENT MUST END HERE 
507 
508 
509 SCLEAR # RUN-TIME . 
S10 TCLOSE ALL STREAMS 
O107 AF Sit XOR A SSTART WITH STREAM ZERO 
o10g FS S12 -S.CLR1 PUSH AF $SAVE COUNTER 
0102  FLICH7CCE Bia - SET 1, CIY+FLAGS2-Y) TO TELL CL.STR JUS? TO DELETE 
O10D Choo0O xX S14 CALL CL_STR 
o110 Fi S15 POP AF 
O111  3C 514 Nc A 
O112  FEIO 517 cP 10H ‘ SALL STREAMS LONE? 
0114 28F2 513 1 UR C.$CLR1 
0116 C33H01 R S19 JP END 
520 
Bod Genes ss A et ome teers anata era ba tagene Some Ste eees 


S22 


SH_SYNTAX PALE 10 


Loc OB) CODE M STMT SUURCE STATEMENT ASM 5.9 
23 
524 
O119 = 2IN46SC S25 SV.1.2 Lu HL, DR+D_STR1 3FIRST OF THE EIGHT SYS. VARS. 
O11C  LIPESC S26 LD WE, UR+D_STR2 SSECOND SET BASE ADDRESS 
OLIF 04608 S27 LO B,03H STHERE ARE & SYS. VARS. TO BE SWITCHED 
o1zi 1A 528 SVA LO A, (DE) sFETCH CINE 
O122 4b s20 Lu C, (HL) SAND ANCTHER 
0123 «77 530 Lo (HL).A ISTORE CINE 
0124 «679 531 LD ALC 
o128 «12 522 LO (DE).A SAND ANOTHER 
0126 23 5323 ING HL 
127°. 13 524 INC DE 3STEP CNM 
O122 10F7 =35 DINZ,SVA SROUND FOR @ PASSES 
o12zq «C9 536 RET 
S37 * 
ge MS ca ate ce rah cart Le cs sp NN a oe a rae Ss 
S39 
540 
S41 
542 
543 
544 COMM sLOOK AT THE PRESENT CHARACTER 
S45 3 Z IF A COMMA OR A SEMI-COLON 
O12H FRZC 546 CP 2CH 315 IT A COMMA? 
o120 ca S47 RET Z 
O12E FESB £48 CP 3BH 318 IT A SEMI-COLON? 
o13000 «CF _ 849 RET 
S50 
551 
S52 ST_ENU sCHECK A STATEMENT IS ENDED 
O12 FEOD ee: CP OH SCARRIAGE RETURN? 
O133 2304 #54 JR Z,ST_E1 
O135 FEA S55 CP 3AH s COLON? 
0137 9 zoCcs S54 JR N2,SC_ERR 
B87 
o139 DF S58 STLE1 RST SYNT 
O13A- CO S59 RET NZ - SIN RUN-TIME RETURN TO A RUN MODULE 
540 
So! 
S62 ENDL SRETURN AFTER RUN-TIME OR SYNTAX TIME 
O12B  ED7BSDSC B63 LD SP, (ERRISP)  $QRUF THE MACHINE ‘STACK 
O13F  FIPS4600FF 564 LD (IY+ERR_NR-Y),OFFH = $0! ERROR AFTER ALL 
0143 21F41B S65 LD HLs 18F4H> SRETURN ADDRESS IN SYNTAX TIME EA.OTEM 
O146 9 DF Sob RST SYNT 
O147 28120 567 JR Z,ENDSYN sJUMP FORWARD IF CHECKING SYNTAX 
568 
G149 0 SE7F 549 LD A,7FH 7ELSE CHECK THE BREAK KEY 
O148  DRFE 570 IN Ay (OFEH) 
O14 1F S71 RRA 
O14E 93807 S72 JR C,END2 
O1S0 BEFE 573 LD A,OFEH 
O182 DBFE 574 - _ IN A,» (OFEH) 
O184 LF 575 RRA 
O155 3005 5/6 JR NC. BREAKL sJUMP IF BREAK PRESSED 
577 nee 
O187 217u1B 578 ENL2 LD HL>IE7UH —- = $RETURN ALURESS IN RUN-TIME 9 / - 79 
O15A ES 579 ENDSYN PUSH HL “ 
oO1SH CC? 530 RST R_HASE sEXIT 


aa ee Re ee eae ae ee ae 
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LOC - Ok CODE M STMT SOURCE STATEMENT ASM 5.9 
Set 
592 5 
O15C FD360014 S83 BREAKL LD (IY+ERR_ONR-Y),14H 
o140 EF 524 RST ROMERR S“RREAK INTO PROGRAM? 
525 
B26 
0164 D7 587 EXP RS? CALBAS __ 10 
O162 eBcic see DEFW Geecnye” +FETCH A STRING EXPRESSION 
0164 DFE 539 RS1 SYNT 
o145 «ce  §90 RET 2 sBACK IN SYNTAX TIME 
O164 9 FS S91 PUSH AF 
O147 D7 592 RST CALBAS ae, 
“O1G3 FI2B 592 DEFWSBFIH> © $PUPSTR> 
OLGA FL 594 PoP AF 
O168 Cy 595) RE} BC - LENGTH, UE - START 
49 
597 
593 N_LLETT s;NEXT LETTER 
o14c D7 509 RST CALRAS 
C14D 2000 00 LEFW 0020H PSTEF ON 
604 
602 LEIT . sLETTER 
O1GF Ch4101 R 403 CALL EXP 
0172-2812 404 JK Z,LETT_N 3JUMP FORWARD IN SYNTAX TIME —- FOR A NUMBEK 
O174 FS 605 PUSH AF SSAVE FLAG 
O175 79 Os LD A.C 
OL76 aD 407 DEC A 
OL7/ BO 403 OR E : 
O172 2020 609 JR NZ, IDE_ER sLENGTH MUST BE “1° 
O17A 10 S10 LD A, (DE) SFETCH COLE 
OL7B 17 ii RST CALBAS aa? 
O170 | aLee 612 . DEFW COED) s1S IT A LETTER 
O1L7E BOL7 6123 JR NC, IDELER 
O180 ESDF 614 ANL’ ODFH SFORCE TO UPPER CASE 
o1e2 aenesc 615 LO (DR+LSTRI).A VES ~ SO KEEP IT 
O185 FL 614 PUP AF SFLAG BACK 
0184 FEOD 617 LETT_N CP ODH SEND GF LINE? 
O1ss ce 418 REY 2 
0189 FEA 619 CP 20H SEND OF STAIEMENT? 
Oise Ce 620 REY Z 
018c  FEAS ark CP OASH $NO NUMBER IF A TOKEN IS FOUND 
O1SE Do 22 RET NC 
623 S THEREFORE & NUMBEK TO FOLLOW 
OLSF CLIZROL R 624 | CALL COMM sLOUK FUR THE SEPARATOR 
0192 C22C00 R 425 . JP NZ, ENDER 
O17 07 “626 RST CALBAS ; 
0194 2000 627 LIEFW OO2OH sSTEP ON 
0198 «07 628 NUMB. RST CALBAS _ 
O19? ©«aziC 629 DEFWCCe2D EG $FIND A NUMERICAL EXPRESSION 
O1?7R fF 430 RST SYNT 
o19c 6k 631 RET Z SRETURN IN SYNTAX TIME 
O1°;D FS 632 PUSH AF 
O19E D7. 433 RST CALBAS 
O19F = PA1E 34 DEFW (E99 ™*-U snNUMBER To RBC 
O1AL = ED4a2aDesc 635 LO (URFDZSTR1)» BC $STORE NUMBER ° 
OLAS FL 26 POP AF 
o1a4 C9 637 RET sE INISHED 


638 


O1AD 
O1AA 
O1AC 
OLAF 
O1LBO 
OLH1 
OLS 
O1R2 
OLBS 
OLB 
OLBA 
OLBC 
g1co 
O1c4 
O1cs 


O1CS 
O107 


O1cs 
OL? 
OCR 
O1cr 
OLE 
O1Ce 
O1DO 
O11 
OLN 
O1L4 
O1Ds4 
OLDE 
O1DR 
OLLIC 


O1pu 
OLDE 


O1LDF 
OLE? 
O1E4 
O1E7 
O1ER 
OLec 
OUD 
OLEF 
O1FO 
OF 1 
OLF2 
O1F4 


SH_SYNTAX FAGE 12 


OBJ COLE M STNT SCURCE STATEMENT ASM 5.9 
&39 
E7 640 IDE_ER RST SH_ERR 
o2 : 641 DEFBR 2 s INVALID DEVICE EXPRESSION’ 
642 
642 
444  N_NAME ;FIND THE NEXT NOME 
D7 645 RST CALEAS 
2000 646 DEHW 0020H *STEP ON 
CD4101 oR 447 CALL EXP iFETCH A STRING EXPRESSION 
ca 648 REI Z +BACK IN SYNTAX TIME 
FS 649 PUSH AF 
7 450 LD ALC 
BO 651 OR B 
2H 1 652 JR Z,INLER *MUST NOT BE NULL 
210000 653 LD HL, OO0AH 
ED42 654 SBD HL, BC 
2800 655 JR Cy INER ;MUST NUT BE OVER TEN LETTERS 
ED42DASC 454 LD (UR+N STRL), BC +SAVE LENGTH 
EWS30CSC 457 LO (OR+N STRI+2) 5 DE sSAVE START 
Fi 4513 POP AF 
cy 659 RET 
640 
E7 661 IN-ER RST SH_ERR 
o2 bh2 LEFB 3 *“INVALILI NAME* 
463 
464 N_STR #FINU THE NEXT STREAM NUMBER 
07 645 RST CALBAS 
2000 totaly DEFW OO20H sSTEP ON 
17 647 RST CALBAS __ 
S210 649 DEFW cea © $FIND A NUMBER 
DF 649 RST SYNT 
ce 470 RET Z 3BALK IN SYNTAX TIME 
5 671 PUSH AF 
L7 O72 RST CALBAS 
PA1E 6/2 DEFW CESAR) XO NUMBER INTO <A’ 
FELO 474 CP 10H 
2005 675 JR NC, STRLER 
S2035C 676 LD (UR+S_STRL),A ;STORE IT 
Fi 477 POP AF 
ce 478. RET 
&/9 
E7 620 STR_ER RST SH_ERR 
o1 G1 DEFB 1 ; INVALID STREAM NUMBER? 
bate 
62:3 
684 M_CHEK +CHECK THE "M" & THE DRIVE NUMBER 
SALISC 635 LD A, (OR+L_STR1) #FETCH THE LETIER 
FEAD 424 CP 4UH nIS IT "MY" ? 
C2A701 R497 IP NZ, IDE_ER 
EUSED6SC = 488 DRICHK LU DE, (DR+D_STR1) +FETCH THE NUMBER 
7k 62:9 LD ALE 
B2 490 oR D 
ESOC 691 UR Z+IDNUER, = $“INVALIC DRIVE NUMBER’ 
13 £92 INC LIE 
76 693 LD AE 
B2 694 OR D 
2209 495 JR Z>MDN_ER #DRIVE NUMBER MUST NOT BE FFFFH 
1B 696 DEC DE - 


OP ad, Tae Sa 


O1FF 
0202 
0205 
0206 


oO207 
O2O2 


O209 
ozo) 
QOROE 
OZOF 
O210 
O212 
O2Z13 
O2Z16 
O218 


OZ19 
O21A 


O21H 
o2ic 


o2i0 
O220 
0222 
O224 


o229 


o220 
oz2n 


O22E 


¥ 


OR. CODE M STMT SOURCE 


210800 
ENS2 
Do ‘ 


E? 
o4 


£7 
08 


COLUFOL 
SADBSC 
A7 
cs 


£7 
OG 


EDSBD4SC 


214000 
EDS2 
no 


E7 
Os 


E/ 
O7 


Chéecos 
CUZHOL 
C22C000 


» CDAYOL 


Cy 


2ALSSC 
23 
70 
B4 
co 


E7 
a? 


R 


DABA 


697 
693 
499 
700 
7O1 
702 
703 
704 
705 
708 
707 


IDN_ER 


MON ER 


MNCHEK 


MN_ER 


NCHEK 


ISN_ER 


MSN_ER 


NLETNN 


B_CHEK 


MER_ER 


SH_SYNTAX 
STATEMENT 


LD HL,000SH 
SBC HL. DE 
RE? NC 


RST SH_ERR 
LEFB 4 


RST SH ERR 
LEFB OSH 


sCHECK THE 


CALL M_CHEK 


LD A, (DR+N_STRI+1) 


AND A 
REIT 2 


RST SH-ERR 
DEFR 6 


PAGE 13 
ASM 5.9 


3“ INVALID DRIVE NUMBER“ 


3“MISSING LIRIVE NUMBER’ 
"M", A DRIVE NUMBER & A NAME ARE ALL GIVEN 
¢FEICH THE HIGH LENGTH BYTE OF THE NAME 


SRETURN IF NAME GIVEN 


$°MISSING NAME” 


sCHECK THE STAIT1LON NUMBER 


LD DE, (DR+D_STR1 ) 


INC DE 

LO ADE 

OR wb 

JR Z,MSN_ER 
DEC DE 
LD-HL,0040H 
SkC HL,»DE 
RET NC 


RST SH_ERR 
DEFB 5 


RST SH_ERR 
DEFR 7 


sFINL 


CALL NULETT 
CALL COMM 


JP NZ,END_ER 


CALL N_NAME 
RET 


LD HL, (DR+D_STR1) 


INC HL 
LO AGL 
OR H 

RET NZ 


RST SH_ERK 


DEFB 9 


4 
g POC the 6-3 a i Mie 


THE NEX? LETTER, 


sFETCH THE NUMBER 


NUMBER NOT TQ BE FFFFH 


sSTATION NUMBER RANGE IS 01H - 40H 
s“ INVALID STATION NUMBER” 
STATION NUMBER” 


3 “MISSING 


NUMBER (IF PRESENT) & NAME 


SLETTER & NUMBER (IF GIVEN) 
$s THERE MUST HE A SEPARATOR 


sFIND THE NAME 


sFETCH NUMBER 


sRETURN IF NUMBER PRESENT 


s“MISSING BAUD RATE’ 
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Loc. OB! CODE M STMT SQURCE STATEMENT ASM 5.9 
755 
7356 ST_V_F 3ARE THE DETAILS A STREAM UR A FILE? 
0233 07 ‘ 7357 RST CALBAS 
O234 2000 7233 DEFW O02%0H 3STEP ON 
236 FE23 139 CP 23H 3A “HASH’? 
0233 CARROL R 760 . WP Z,N_STR 3IF SO - IT IS A STREAM 
. 761 
: 762 : 3ELSE FIND THE FILE DEQAILS 
0238 Cb4Foit = R 743 CALL LETT 5FIND LETTER & NUMBER (IF PRESENT) 
O2%k CD2B01 R 764 CALL COMM 31S THERE A SEPARATOR? 
o241 2002 76S JR NZ,STVF1 sFORWARD IF NOT 
O243 CDAaYOL R 766 CALL N-NAME 3FIND THE NEXT NAME 
244 DF 7&7 STVF1 RST SYNT 
O247 cs 743 RET Z 3BACK IN SYNTAX TIME 
769 3ST_V_F RUN MODULE 
0243 3SADPSC 770 LUD A, (DR+L_STR1) 3FETCH THE LETTER 
O248 FES4 771 CP S4H sIS If "tT" 2 
oZ24u cs 772 RET Z 
'O24E FE42 772 CP 42H 313 IT "BR" > 
o250 cy 774 RE! Z 
251 FE4E 773 CP 4EH 315 IT "N" > 
O252 CAG+02 R 776 JP Z,N_CHEK RETURN AFTER CHECKING SATION NUMBER SPECIFIED 
254 “SFFOL RR 777 JP MNCHEK SFINALLY CHECK FUR "M",DRIVE NUMBER & NANE 
778 
779 


{yh ) 
om» (4) 


Loc opu cone M Sint ¢ 


0700 
0700 


C9 


ae 


on 


a GH_RETURN PAGE 1 
QURCE STATEMENT ASM 3.9 


ve we 


FREE AEA AEH AE EME HE SE IESE TEE IEEE HE EEE IEE ESE TEE HAE SE IEE HEE ESE EEE REHEARSE IESE IE SEE SETHE GE Hat ge 


RETURN MODULE 


FERRE RE HE SEETHER HSE HE FE AE SESE AE HEHE SE AE HEE HEE SE AE HEE SESE HE IEE SEE IEE EEE JETER EEE EE EEE IEEE TE EE TEE SE GE HE NE eae 


we us ve ve ve 


GLOBAL RETHAS 


ORG 0700H 
RETBAS RET sCOPY OF INSTRUCTION IN BASE ROM 


Loc 


SH_RETURN 
QB! CODE M STMT SOURCE STATEMENT 


16 #EJECT 


bP NI 0 2m amy ah 


. 


Loc oBJ COLE M STMT 


OON PUD Whe 


z 
BO 
31 
Be 
33 
34 
35 
34 
27 
& 


a 


SHUSAVE PAGE 1 

SHURCE STATEMENT ASM 5.9 

H 

FFE HE HEHE HE HE HE AE HE SE SE SE IE HEHE IE SE HE SE SE HE HEE EE SE SE HE SE HS SE EE EE EEE PE TE HE ETE JE HE EE HE ES ae Sd J a dt a 
3 

$ SAVE, LOAL, VERIFY & MERGE MODULE - SHUSAVE.S 
e % 

7 

3 ME TE SESE PE HE SEE HE HEE AE HE HIE HE SE SE EEE IE HE HSE HE IE SEE HE SE SE HEHE PE SE EE SE FEE EE ESE SE SE TE EE SE SE SEE HEE JE TE JE GE OE ME 
4 

#INCLUVE SH_S_V.S 

s 

9 

4 ee ee ee ee ee ee a ee ee) 

: 

; SHADUW ROM SYSTEM VARIABLES 

3 ; 

3 FEM HEE IE HE HEHE SEE HE HE HE ETE HEE SE FE SE IE IE PE HE SEE EH EEE IE HEE SEE SEE SE SE PEE SE EE ESE HEH PE HEHE SE TE HE SE SE PB 2 HE HE OE SE EE HE 

: 

#INCL  NEWVAR.S 

: 

5 FEA SEH HE EH SE HE SEH EE IE SE EE IEE BE HE HEHE HEHEHE EOE SE HE SEE IE TE JE SE SEE IE HE SE HE SE SE dE SE at 

3% NEWVAR. & +t 

3 it 29/4/83 # 


SHEAR TERETE EE PEE EAE HERE EAE AE FEE HERE EAE HEE SE SEE AE HE EGE ETE HE HEE TE EEE TELE EEE HE HE 
a3 

5 FRE EME HAE TE EAE TE HEE HE SE HEM HE HE EEE HE IEEE SEE SE HEHE SEE IESE HEE HE EEE SESE IEE IEE 
3H SYSTEM EQUATES * 
SHAE AE AE AE HEHE SESE IEA SEE SE AE TE TEE HEE IE IE TERE HE SESE SEE SEE IE HE HE IEE HE HEHEHE IEEE GEE HEE 


PORTC Emu OEFH SWURIVE CONTROL/STATUS FORT 

FURTD Eau QE7H SDATA FORT ADDRESS 

SELD Ewu OFEH SDRIVE SELECT DATA 

SELC Eau OF DH SDRIVE. SELECT CLOCK 

WRITE BAW OF BH SWRITE CURRENT UN 

ERASE Eau OF 7H FERASE CURRENT UN 

lis Eu OEFH SCLEAR TO SEND CUTEUT 

SYNC .EQU z SSYNC BYTE DETECTED SIGNAL 

FROTECT Ew 1 SWRITE PROTECT SIGNAL 

GAP Eau 4 7GAP SIGNAL 

BUSY Eu 10H 

? 

FLEN Eo 12 SLENGTH UF PREAMBLE 

HOLLEN EQUI PLEN+14+1 SLENGSH OF HEADER BLOCK FLUS FREAMBLE 

D_LEN Eau HD_LEN+S12+1 SLENGTH OF DATA BLOCK 

HD_LMAX EU 255 : . $NUMBER UF BLOCKS ON TAFE 

TRYS Equ S sNUMBER OF TRIPS ROUND TAPE 
SBEFORE GIVING UP ; 

GAPT3 EU 340 3THE LEC: BC DELAY BETWEEN REALING 


3A HEADER, CORRECTING If, VESTING 
SIF FREE ANU WRITING A DATA BLOCK 
GAPTI Eou GAPT3+74 3THE DEC BC DELAY BETWEEN WRITING 
‘ 3A HEADER BLOCK AND WRITING A 
sDATA BLOCK 
GAPTZ' EQu S31 3THE DEC BC DELAY BETWEEN END OF 
3A DATA BLOCK AND BEGINNING OF 
sHEADER BLOCK 
SHE DEC BC OLLAY 15 26 -SIAIES 


t 


ee oe ae eee cee ee 


SH_SAVE FAGE 2 
’ LOC” OBJ CODE M STMT SQURCE STATEMENT ASM 3.9 
59 SOR 7.4 


60 $THE ABOVE TIMINGS ARE HOPEFULLY 
41° 3FOR A HEADER OF LENGTH S40US, FOLLOWED BY «a GAP OF 3.06M5, FULLOWED 
2  $BY THE DATA BLOCK LENGTH 21.2MS, FOLLOWED ey A GAF OF 41s. 


63 3 
64 ERROR Eau S SERROR HANDLING IN ROM 
65 INSERT Eou 162'3H 3MAKE SPACE IN RuUM 


66 DELREC EAU 
6&7 CHANS Eau 
68 STKEND EQU 
62 STEBOT EQU 
70 MEM Eau 
71 SELECT Eau 

2 SENOTV EWU 
73° QUICH EQu 
74 INCH Eau 


sDELEVTE SPACE IN ROM 
SADDRESS CF CHANNEL LATA 
SADLRESS OF START OF SPARE SPACE 


CHANNEL SELECT SUB. IN OLD ROM 
PV GUIPUT PROCEDURE 
SCHANNEL OUTPUT ROUTINE 
SCHANNEL IMFUT ROUTINE 


e 
? 
s 
7 


73S 

7&3 

77 3 SHADOW ROM SYSTEM VARIABLES 

72 $ 

7? TRGB REBIBEITEITIHGIBUCIE GHEE HEEEEEFEHEHEBGHIEEHEHEGHEHEEEHEE EEL Ee 
SO $ 

S13 : 
a2 

2 3 SYSTEM RESTARTS 

24 : 

25 R_UBASEs EQu OOOOH 

84 ENTRY? EGU OOGEH 

87 CALHAS: EQU OO10H 

82 SYNT: EQU OO18H 

S9 SHUERR: EAU OO20H 


?0 ROMERR: EWU oo2sH 
71 INSER. EAU OO20H 
P2 MASK: EGU OO23H 


75 $$ BASE ROM ADDRESSES 


2?7 LAST_K EQ@U StosH 
72° DEFADD EGU SCORH 

°9 STRMS EAU SC1OH 

luo oY EUU SCSAH 

101 ERR_NR EQU 5SC2AH 

102 FLAGS EGU SC3BH 

103 TV_FLAG EGU SC3CH 

104 ERR_SP EGU SC2nH ; ° 
105 NEWPPC EU Sc42H 

106 NEPPC EG SC44H 

107) FEC EOU SC45H 

102 SUBRFPCO EQU SC47H 

10? BORDCR EGU SC4sH 

110 VARS EQU SC4BH 

111 CHANS_. EQU SC4FHs« 

112 CURCHL EU SCS1H 

113 FROG EQU S5C53H 

114 OATADD EQU 5SC57H 

115 E_LINE EU SCS9H 

116 CHLAND EWU SCSDH 


Ft Oe ee he PS 


Lac 


OBJ CUDE M STNT 


117 
119 
119 
120 
121 
1Z2 
123 
1Z 


125 


SH_SAVE FAGE 3 
SOURCE STATEMENT ASM 5.9 


X-PTR  EQU SCSRH , 
FLAGS2 ELI SC&AH 

FLAGX EAU SC71H 

UE EWU SC7BH 

SCRCT  EOU SCSCH 

ATTR-P EQU SCSOH 

AYTK.T EQU SCSFH 

P_FLAG EQU 5SC91H 

DR EQU SCE4H io 


5 

SAE E EIT SEEHEETEEESESEESESEE SE SEE EEE ESE IESE HTS HEE ETE EEE EEE IEEE 
3% FIXED MICROURIVE DATA # 
FEMA EEE ESE IEEE IESE SE HEHE EE AE HEE ESE HE SEE HOHE EAE HE EE HEE HE HE IE HE HE 
5 
3 


SVHIS FIXED LAIA IS FOUND IMMEDIATELY AFIER THE SYSIEM VARIABLES 
$THE SPACE IS CREATED WHEN THE SHADOW ROM 15 FIRST CALLED 


FLAGS3 EAL UR 323734 SBL1T O ... RECURSION 
, *BIT 1... ALIO RUN 
$BIT 2 ... HOOK 
sBIT 3... NEM/RS232 
sBIT 4 ... LOAD 
3;BIT 3... SAVE 
SBIT 6 we. MERGE 
sRIT 7 «2. VERIFY 
XR Eau 7 : SINDICATES VERIFY NOT LOAD 
VECTOR Ell o1H $2Z22/35/6 sNEW COMMAND VECTOR POINT 
SBRT - Eau VECTUR+O2ZH  $23737 SSTART OF CALBAS SUBROUTINE 
HL Eull SBRT+01H 
Z1LCH EQU SBRT+041H 
BAULI Eau SBRT+0AH 323747 sRATE FORK RSz3z 
NTSTAT EQU BAUDFOZH 323749 3“OWN’ SfATLON NUMBER 
1QBORL EQU NTSTAT+O1H = $ 23750 sBORKDER COLOUR FOR 1/0 
SER_-FL EWU TQBORD4OQ1H 323751 SSERIAL INFUL FLAG & CHARACTER 


sEND GF DEFAULT SYS. VARS. 


sSTART OF VARTABLES 


SECTOR Ell SERLFL+02H+0R $Z23753 SMICROURIVE SECTUR 
CHADD. EGU SECTOK+02H-DR 3237355 Ss TEMPORARY STORE FOR CHADD 
NTRESP EGU CHADD+02H 322757 SSTORE FOR RESFONSE CODE 
3 THE EIGHT LOCATIONS FOR A NET HEAVIER 
NTDEST EGU NIRESF+O1H 323759 SDESTINATIUN STATION NUMBER 
NISRCE EQU NTDEST+O1H $2275? sSOURCE STATION NUMBER 
NTNUMB EWU NTSRCE+O1H §237460 S BLOCK NUNBER 
NTIYPE EOU NTNUMB+0O2 $23762 s“DATA’ (O) OR “CLOSE’ (1) TYPE CODE 
NTLEN EQU NTTYFE+O1H 323743 sDATA BLOCK LENGTH 
NTDCS EQU NTLEN+01H 3223764 SLATA CHECESUM 
NTHCS EQU NTDCS+O01H 323765 SHEADER CHECKSUM 
$THE SIXTEEN LOCATIONS FOR PARAMETER COLLECTION 
DSrRi EWU NTHCS+01H 323766 sTWO BYTE NUMBER 
S_STRIi EQU DLSTR1I+O0ZH 322762 STREAM NUMBER 


DPW ees 6 a Las 


SHAVE ‘PAGE 4 


“Loc” Ob CODE M STMT SOURCE STATEMENT ASM Be 
175 LSIRi EQU D_STR1+03H 323749 sLETTER 
176 N_SIRI EQU ULSTR1+04H 123770 SNAME DETAILS (LENGTH & START) 
: 177 DSTR2 EOU DLSTRI+OSH 323774 3 ## SECOND SET a 


1732 SLSTRZ EAU DLSTRI+OAH 323776 
179 LOSTR2 EWU DUSTRI40BH 123/77 
3 


160 N_LSTR2 EQU DUSTRI+0CH 323778 
181 ; 
182 

i 8 Cae 183 SC_00 EQU D_STRI+08H 323774 3SECONL SE1 FOR SCANN 

i : : 184 sSc_O8 EWU DUSfRIt+O9H 323775 
85 SC.oD EAU D_LSTRI+OHH 323777 
184 SC_LOF EQU OLSTRI+O0H 323779 
137 
182 
137 s3THE NINE LOCATIONS FOR “SAVE’, ‘LOAD’ ETC, 
190 HD_0O EUW DUSYRI+10H 323782 STYFE CODE 
191 HULOB EQU HULOO+01H 323792 SLENGTH UF BLOCK 
192 HOLOC EGU HDLOB+OIH = 322724 
193 HDLOU EU HDLOt+O1H = 323785 sSTART OF BLOCK 
194 HDLOE EU HDLon+o1H 322784 
175 HOLOF EOU HDLOE+01H 3237397 *FROGRAM LENGTH 
195 HD10 EQU HDLOF+O1H 323780 
197) HDL11 EAU HDL104+01H = 323789 SLINE NUMBER 
Ive HDL12 EU HOLL1+01H 322790 
199 : 
200 COFIES Emu HD_i2+1 3237971 
201 
202 
2903 ROMADD EQU HUL10+01H = 323729 3PASSING ADLRESS FOR HOOKS 
204 
205 DRULEN EQU COPIES+01H 
20& NILEN  EQU O114H sLENGSH CF A NET BUFFER 
207 
208 
20? $ RS2382 FORT DETAILS 
210 
211 RS232 EAU OF7H $SERIAL DATA PORT 
212 KRLPT EG! OFEH TKREYBOARLE PORT 
212 STATUS EQU OEFH SSERIAL STATUS FORT 
Z14 OTR EGU OSH SMASK FOR DTR wUuTPUT 
215 
2146 $3 NET PORT DETAILS 
217 SERIAL EQU OF7H SSERIAL LATA FORT 
218 WAIT EQU OEFH : sWAIT PORT 
219 
220 3 
2zl 3 
S22 5 PERE HEHEHE SESE HEHE HEE FEE HEE HE HE HE SEE SE EE HEE SE EE SEE ESE SE JE EE EEE SEE GEE HE GEE SE 
222 38 MACRAS t 
224 5 FERRARI TEAE TESTE HEHE HEE AEE SESE SE HEHE HEE SE EE HE AE AEE EERIE IEEE EIR Hea 
225 3 
B26 RSI MACRO =- #ATIDR 3THIS MACRO WILL BE USED TO FLAG 
227 RST #000 sCALLS fO THE ROM WHEN THIS S/WOARE 
22 ENDM 31S CONVERTED JO SHADUW ROM FURM. 
229 3 
220 ASSERT MACRO #conu 
231 COND .NOT. (#COMD) 


232 HHHHHHHHEHERROR IN ASSERTION #COIND 


~ Loc - Goku CODE M STMT 


fhih heh 


CN OR N ee 


Pee RE PR: 
De 


ro bh} RO Ra Bo he bo Nobo Ng bo 


eye) 
ja 


1 020) 0D 
NOD DS a ty 


Poh bp hh bo Bo ha 


hh to 
0 OG 
O90 


SHAVE PAGE 5 


SOURCE. STATEMENT ASM 5.9 
ENDC 
ENDM 
5 
OLDCAL MACRO #5UB 
RST CALHAS 
DEFW #508 
ENDM 
3 
OLUIP MACRO #DEST 
uP #DEST 
ENUM 


TERE HE HEE HOSE HE HE EAE SEE HE HE HEE TE HEE HEHEHE SE AEE HE IEEE TE EE SHE HE SE IE PE HE SE HE SE 
# DATA tt 
HERE HE SE AE AE HE HEHEHE IEE HE HE HE HEE HE HEE HE HE SE EE ESE HE EE TE HE EE EE EE EE 


PETE AE ESE EE EE HEE EE ETE HANNE Lt dete it tt Ht ee EE IE HE dE EE 


THE FOLLOWING DATA IS CREATE‘L FOR EVERY OPEN MICKOURIVE FILE 
AND SOMETIMES FOR A WORKSPACE IN MICRODRIVE GPERATIONS 


we ve wa us ve ve we we vs we ve we ve we ve 


SOLD WROH ADDRESS FOINIS Ta ooos 
SOLO ROCH ADDRESS FOINTS TA aQ0 


CHTYPFE EA 4 sCHANNEL TYPE 
sNEW WRCH ALDRESS 
SNEW ROUH ADDRESS i 
CHLEN Eau CHTYFE+S SLENGTH OF THIS CHANNEL LIATA 
CHBYTE EQU CHLEN+2 SCURRENT BYTE POINTER 
CHREC EQu CHEYTE+2 SCURRENT RECORD 
CHNANE EGU CHREC+1 $10 BYTE FILE NAME 
CHFLAG EGU CHNAME+10 SCHANNEL FLAGS 
WRFLG EQU QO SWRITE FLAG BIT 
CHDRIV ERU CHFLAG+1 sDRIVE NUMBER 0-7 
CHMAF Eau CHDORIV+1 FADOURESS OF DRIVE MAF FOR THIS FILE 
? 
CHHUR EGU CHMAF+2 * SSTART OF HEALIER 
HOFLAG EWU CHHEIR+PLEN . S$FLAG BYTE AT START OF HEADER (BITO=1) 
HONUMB = EQU HOFLAG+1 SNUMBER OF CURRENT HEAUER/SECTOR 
g SFOLLOWED BY TWO EMPTY BYTES 
HDNAME Eau HUNUME+2 7 TAPE NAME 
HOCHK EQu HDNANE+10 SHEALER CHECKSUM 
? 
STOTAL LENGTH OF THE ABOVE PLEN + 15 
CHILES EQu HOHE +1 ¢START OF DESCRIPTOR 
RECFLG EQUI CHDES+PLEN SFLAG BYTE IN DESCRIPTOR (8I1TO=0) 
: sB1T 1 = EQr 
s81T 2 = SLYVM . 
RECNUM EQU RECFLG+1 SNUMBER OF THIS RECORD 
RECLEN EQU RECNUM+1 SLENGTH OF THIS RECORD . 
RECNAM EQU RECLEN+2 SNAME OF THIS RECURU 


Se ee oe ee 


SH_SAVE FAGE & 
9 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5. 
DESCHK EWU RECNAM+10 SOESCRIFTOR CHECKSUM 
CHDATA EAU LE SCHE +1 35TART OF DATA BLOCK 
° DCH EQu CHL TAtS 12 SATA CHECKSUM 
CHANLN EAU DIGCHE +41 SLENGTH OF ALL THIS 


IEHEEEEEEEEHEHEL MAP AGHEEEEFEEEEEE THIER 


we we ve 


$A MICRODRIVE MAP IS A BI1 MOF OF ALL SECTORS ON A MICROURIVE 
STHE BITS ARE COUNTED FROM Oo TO HO_MAX-1 THE LENGTH 
30F THE MAP IS THEREFORE GIVEN BY:— 


MAFLN EQu 32 
; 


*THE MAP IS CREATED FOR EVERY DRIVE CONTAINING AN OPEN FILE 


#LIST ON 


GLOBAL S_SAVE, S_LOAD, S_VERI, S_MERG 
GLOBAL SLVMEX 

GLOBAL H_SCKT, TLPRL1 

EXTERNAL GET_BL, LDLCON Ss H-SAVEQ 
EXTERNAL IN_BYT+IN-BYP 5! pee 
EXTERNAL NTENP—sy. ve> ide 
EXTERNAL GUT_Ny{ OUT_T2-se_ Pe & 
EXTERNAL NTCLSE! 2 08 emery _HI 
EXTERNAL ACT_SA> GE1_HDG \GEIMBL, CLOS 
EXTERNAL ENULER, COMM, MNCHEK -s4-S7.74 
EXTERNAL LE11,N_NAME,NOCHEK, STLENU,ENLL - Sh Sspuray 


EX TERNAL DELTMP - <p Close 
Be a ce i a eset es 
SCANN SSCANNING SUBROUTINE FOr SAVE, LOAL, VERIFY & MERGE 
lelarale) 07 RST CALEBAS 
QOOL 2000 DEFW OOZ0H sSTEF ON ! 
a002 FEZA (IP 2AH STHE SEFARATUR ~ # ~ 


O00S 2034 JK NZ, SC_LERR 


O007 07 : RST CALBAS 
OO0R 2000 234 DEFW 0020H SSTEP PAST THE SEFARATOR 
QO0A CDOOOO X 335 CALL LETT SFETCH THE LETTER & A NUMBER (IF PRESENT ) 
ooon CLIOOOO X 334 CALL comm $IS THERE A SEPERATOR? 
oo10 2003 337 JR NZ, SCAN_O 
oOo012 CLOOOO X 338 CALL N-NAME $PICK UF THE NAME 
S39 SCAN_O 
OO1S FS 240 PLUSH AF SSAVE CURRENT CHARACTER 
a014 ZADPSC 341 LD A» (DR+L_STRL)3GET THE LETTER 
OO19 FE4E 342 CP 4EH 31S IT “N’ ? 
OOLR 2004 343 JR NZ,SCANN_1 
oo1b FDCBR7CDE 244 | SET 2, CIY+FLAGS3-Y) 75ET THE “NETWORK’ FLAG 
345 , 
346 31T THERE ANYTHING ELSE? 
oo21 F1- 347 = SCANN_1 POP AF sSRETRIEVE CODE 
0022 FEOD 348 CP ODH SEND OF LINE 


OO288 


aosag 
OO32 
O024 
0036 
OO3S 


OO3K 
OO2T 


oo04d 
OO4l 
OOS 


oOogd 
0047 
0049 
ona. 


OO AF 


aos? 
oosy 
OO041 
QO62 
0064 
0067 


QO6EA 


o0éC 
OO4F 


0070 
C7 1 


SHUSAVE PAGE 7 


DE CODE M STMT SOURCE STATEMLNT ASM 5.9 

YR 2, TPR 

CP 3AH END OF STATEMENT 
JR Z. TUPROG 

CP OAAH + SCREENS? 
JR Z.T_ SCRE 

CF OAFH ; CODE? 

JR Z, TUCO ne 

CP OCAH 3LINE? 

JR Z,T LINE 

CP OE4H DATA? 


FEE4 
CALDLOO R 


E7 


oo 


sC_ERR 


[17 

SOO ; 

{7 

S210 
CooOoog x 


T LINE 


07 
V1 
EO42b OSC 


1203 


ENOWOOO xX 1PROG 


AF 
B2L450 
ZASPSC 


EUSBSSSC 


TLPR_1 


37 
EnS2 
2EE750 
2A4BSC 
EDS2 
2EEBSC 
Cc? 


D7 
ZOO 


T_SCRE 


JP Z,T_DATA 


RST SHUERR 
DEFB OOH S°NUNSENSE IN BASIC- 


RST CALBAS 

DEFW OO20H SSTEP UN 
RST CALBAS 
DEFW ACE 
CALL STLE 


Je“6  $FETCH THE LINE NUMBER 
in SSTATEMENT TO FINISH HERE 


a 


3 RUN-TIME 

RST CALBAS 

DEFW GQEPSA) XU SUNSTACK THE LINE NUMBER 

LD (DR+HD_11),8C :SVORE THE LINE NUMBER 
JR TUPRo1 


CALL STLEND STATEMENT MUST FINISH HERE. 


$TWFROG RUN-TIME 


XOR A 
LO (DR+HDLO0),A SFROGKAMS ARE OF TYPE “0% 


LO HL, (E_LINE) 
LU DE, (PROG) 


LO (DR+HD_on) , OE SSTART IS “PROG- 

SCF 

SEC HL, DE : 

LD (DR+HU_OB),HL SSAVE THE “PROGRAM & VARIABLES’ LENGTH 


LD HL» (VARS) 

SkC HL, LIE 

LD (DR+HLt_ OF). HL SSAVE THE “FROGRAM’ LENGTH 
RET 


RST CALBAS 
DEFW OO20H sSTEP ON 


| ee a er 


SH..SAVE PAGE 8 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
0072 CLODCO xX 407 CALL ST_END SSTATEMENT TO FINISH HERE 
408 
a 40% SSCREENS RUN-TIME 
OO74 ZLOOIR 410 LD HL, 1BOOH $SIZE OF SCREEN 
O07? 2SR75C 411 LD (DR+HD_OB).HL 
oo7c 210040 4iz - LO HL, 4000H SSTART ADORESS 
OO7F =Z27E95C 412 LD (UR+HU_OD)»HL 
0082 =63E03 414 LD A,03H SSCREEN$ IS IYPE °3~ 
0084 32k45C 415 LD (DR+HU_00),A 
0087 «C9 ; 41& RET 
417 
418 
BOD Wh eee Nie eS ee ee as eee ee ce So aed oe ee 
420 
oog2 D7 421 T.CODE RST CALBAS 
0087 2000 422 DEFW 0020H SSTEP ON 
oosH  FEOD 42% CP OLIH 
vOSD — 2R0A 424 JR Z,TC1 
OOSF  FESA 425 CP 3AH ‘:' 
oo71 — 200R 26 JR NZ,»T_C2 
OOF3  FICBR7C4E A27 HIT 5, (1Y+FLAGS3-yY) SUSING “SAVE- ? 
0097 2002 4z8 JR NZ, SC_LERR SERRUR IF YES 
OOF 17 429 T_C1 RST CALBAS ne 
COPA ELC 420 DEFW ACE4HDS"*? sstack A ZERU 
OOF 12808 431 JR Tca 
OOPE D7 422 T_C2 RST CALBAS 
OOF S21 433 DEFW @e@sy ©" sGET FIRST NUMBER 
OOAL  ChoOOODD xX 4324 CALL COMM sLOUK FOR A SEPARATOR 
O0AG  Ze0R 425 JR Z,T_C4 
OOAS  FIICR7C4E 424 T_C3 BIT 5, (1Y+FLAGS3-Y) SUSING “SAVES ? 
OAR 208F 437 JR NZ,SC_ERR SERROR IF YES 
OOAL ['7 433 RST CALBRAS _. A 
ooOAL = ESIC 439 DEFW eee“ serack THE “SECUNU’ ZERO 
OOAF = 12804 440 JR Tocs 
OORL 17 441 Tc4 RST CALBAS 
OOB2 2000 442 DEFW OOZOH SSTEP ON 
OOR4  L7 443 RST CALBAS _ 
OORS ~— gz1¢c aaq DEFW (Ck2H>/€% sGET SECOND NUMBER 
OOR7 D7. 445 T_CS RST CALHAS 
OORS 1800 446 DEFW OO1SH 
OOKA CDOOCDO xX 447 CALL ST_END SSTATEMENT FINISHES HERE 
442 
449 SCUDE = RUN-TIME 
OORD 17 aso RST CALBAS | 
COOKE  991E ASL DEFW eo \X-U $UNSTACK SECOND NUMBER 
ooce = EL4ZE75¢: 452 LD (ORFADZOR), RO. SSTORE LENGTH 
oon4 = 7 453 RST CALBAS 
_ OOCS PIE asa DEFW ag SUNSTACK FIRST NUMBER 
OOC7 ED43E95C 455 LD (DR+AD_oD), HC SSTURE START 
OOCR  3EO2 a5& LD A,03H 
oocL azEes4sc 457 LD (DR+HD_00),A CODE IS TYPE “2° 
oono «ce 45g RET 
45? ‘ 
460 . i 
OE Ye ec ae St a a sg ta et Ee te ee 
462 
463 
464 


°. SH.SAVE PAGE 9 


Loc OB CODE M STMT SQURCE STATEMENT ASM 3.9 
OOUL pi lekbales 465 1DAIA BIT 6, (IY4+FLAGS3-Y) SUSING “MERGE’ ? 
OOTS rad 466 : JR Z,T D1 

4G7 
OOn? E7 MAR RET SHLERR 
Oones 14 449. DEFR O14H 3°MERGE” ERROR 
470 
oon? D7 471 T.D1 RST CALBAS 
aQonA 2000 472 DEFW OOZOH SSTEP ON PAST *DATA’ 
: 473 
Oone 07 474 RST CALBAS N. 
ool 225 475 DEFW 2SB2H) IAD CAN THE NEXT EXPRESSION 
QOTIF CBF? 476 SET 7; eal SHIT 7,0 IS A SYNTAX/RUN BIT 
477 SAND NEEDS RESETTING FOR “ARRAYS” 
478 
OOEL ° B00b 479 ; JR NC,» T_D2 7JUMP IF AN EXISTING VARIABLE 

: 430 
OOE3 210000 431 LD HL,OO00H sCLEAR THE BASE ADDRESS 
NOES FOICMB7CGS4 422 BIT 4. (IY+FLAGS3-Y) 

OOkA 2021 423 WR ONZ, ToS S4UME IF USING “LOALZ 
424 

QOEC FD3460001 435 Lu CIY+ERR_UNR-Y),O1H 

OOF O EF 436 RST ROMERR | s°VARIABLE NOT FOUND? 
427 

OOF 1 2302 422 T_O2 JR Z,TD3 sJUMP IN SYNTAX TIME 
49 

OOF 3 E7 , 420 T_UERR RST SH UERR 

OOF4 ag 491 DEFB OOH S*NONSENZE IN BASIC’ 
492 

QOFS DF 4932 T.D3 RST SYNT 

OOFG 2823 44 JR Z,TD7 sFORWARD IN SYNTAX TIME 
475 : 

OOF2 FOCHK7C4E ADL BIT 5S, CIY+FLAGS3-Y) 

OOFCT Za04 497 ; JR Z,TD4 SFORWARD UNLESS “SAVE” 
43 

OOFE CB7E AS? BIT 7» (HL) $TEST THE “DESCRIPTOR? 

o100 23r 1 50a JR Z,TDERR SERROR IF NOT A DIMENSIONED ARRAY 
S01 ; 

OLO2 23 202 T_WD4 INC HL SADVANCE ALONG THE VARIABLE 

oO102 7E S02 LO. A; (HL) SFETCH THE LUW LENGTH 

o104 SZE75C S04 LD (UR+HD_OB),A sSAVE IT 

o107 23 Sos INC HL 

o108 7E. 506 LD A, CHL) SFETCH THE HIGH LENGTH 

O109 S2ESSC S07 LD (OR+HD_0C),A SSAVE IT 

a10or 23 ‘ 503 INC HL sSTEF ON 
S09 

oO10n 7? S10 TUS LD A.C 

OLOE 3S2EBRSC Sit ‘ LL (DR+HD_OF),A SAVE THE VARIABLE’S DESCRIPTOR 

O11. SEOL S12 LD A,O1LH ASSUME A NUMERIC ARRAY 

OL113 CB71 S13 BIT 6,C 

OL115 BaoL s14 JR Z,TDS S4UMP IF NUMERIC 

OLL?s 3c S15 , INC A SMARE IT A STRING ARRAY 
S14 

O11¢g S2E45C S17 T06 LOE (DR+HDL00),A . s3SAVE THE TYPE 
S18 H 

O11B EH Si? T_D7 EX DE,HL sPOINtTER TO DE 

oLic 07 S20 RST CALBAS 

OL1iD 2000 S21 DEFW O020H s;STEF ON 


OLLF FE29 522 CP 29H slack FUR THE “)*- 


Pe Ne ee ae ee eee 


ea Oe ere where poe a aa 


SH_SAVE PAGE 10 
Loc” OBJ CODE M STMT SCURCE STATEMENT ASM 5.9 
0121 20D0 522 JR NZ, T_DERR SERROR IF ABSENT 
524 : 
o123 D7 ‘ 525 RST CALBAS 
0124 8©2000 524 DEFW O020H 3STEP PAST IT 
527 
o126 cpood0d0 xX S28 : CALL ST_END $STATEMENT FINISHES IN SYNTAX TIME 
S29 
530 sDATA RUN-TIME 
0129 »=EDS3E95C $31 LD (OR+HD_OD),DESPOINTER GUES TO “START” 
o12n 68 532 RET 
533 
S24 
535 
Gi OF eet aed bases ly Ee OE eat ar ne et lg 
537 
839 
S39 
540 S_SAVE SSCAN THE STATEMENT FIRS 
OQ12ZE  FOCBR7CEE S41 SET 5, (LY+FLAGS3-Y) 3SET THE “SAVE’ FLAG 
0132 cpo000 R_ 542 CALL SCANN 
O1S5 Bares 542 LO A, (OR+L STR) SFETCH THE LETIER 
O1L38 FE4S 544 CP 42H sIS IT “BY ? 
O1ZQ wes 545 UR Z,S_BYTS 
O12% FEGE | Sb CP 4EH 315 1T “NY ? 
O1SE  Zoo0R 547 UR NZ,S_SA_M 
0140 choooo xX 48 CALL NOCHE sCHECK FOR A “IRIS’ STATION NUMBER 
O14 cChoo0g x. S49 CALL NIEMF sCREATE A “TENFURARY’ NET CHANNEL 
O14% 1804 S50 JR SUBYTS 
o142 cooooo x S51 S_SA_LM CALL MNCHEK SCHECK FOR "M",ORIVE NUMBER, NAME 
O14B cCz0000 xX S52 JP ACT_SA sJUMP FORWARL TO % SAVE To M < 
S52 
Ol4E O407 554 S_BYIS LD B,09H $THERE ARE NINE HEALER BYTES 
O150  BLESuc S55 LO HL, DR+HDLOO s$BASE ALURESS 
O152 CU7FOL -R S54 S_BI CALL SA_LOUT 
O1s4 2a S57 INC HL 
O157 10FA se DUNZ,S_B4 3FOR 1HE NINE BYTES 
Sa? 
O15? 2AE?5C 560 LU HL,» (DR+HLI_OL) $THE “START” ADURESS 
O1SC  FOCEZ7CSE Sod BIT 2. (1Y+FLAGES-Y) SUSING THE NET? 
0160 220BR 542 JR Z,S_B2A SCOINTINUE ONLY WITH THE NET 
0162 ZAE4SC 563 LD A, (LIR+HD_OO) $FETCH THE TYPE CODE 
O165 FEO 564 CP O3H 31S IT 00 - O02 ? 
9147 3004 S65 JR NC, S_B2A 
544 } 
- S47 sCREATING A CHANNEL WILL CHANGE THE POINTERS 
O169 111401 568 - LO DE,N_LEN SLENGIH UF A NET, AREA 
o16c 19 56? ADD HL, DE 
570 
O14U  - ER4KE7SC 571 S_B2A LD BC, (UR+HU_OB) 3 THE LENGTH 
o1s1 7? 572 $_B2 LD A.C 
o172 «BO 573 OR B 
O172 2B07 574 JR Z,S_83 SUNTIL “BC” BYTES ARE SENT 
0175 CD7FOL R 4575 CALL SA_OUT 
0172 OB 576 EC BC S COUNTER OUWN 
0179 «23 577 “INC HL SADDRESS UP 
OQ17A 18F5 . 573 JR S_B2 
579 
Q17C ©23702 R S5Y¥O S_Bo JP SLVMEX SEXIT (RECLAIMING NET CHANNEL IF USED) 


ot ee ut dies oo 


SH_SAVE FAGE 11 


LOC OBJ CONE M STMT SOURCE STATEMENT ASM 5.9 
Set 
S82 
O17F ES , S22 SALOUT PUSH HL 3SENU OUT A CHARACTER 
o180 05 s4 PUSH BC 
O12.  FICR7CSE Ses BIT 2) (1Y+FLAGS3-Y) SUSING THE NET? 
0185. /E Sah LD A» (HL) 3FOR EACH BYTE 
0126 = 2005 527 JR NZ,SA_01 sJUMP IF YES 
o1ig@  cpoob00 x sae CALL WUT_T2 310 THE RSZ32 PURT 
O1sh 61803 539 JR SA_02 
o1ep cp0000) xX S90 SALG1 = CALL OUT_N sfQ THE NET 
O190 C1 571 SAL02 FOP BC 
o1v7i EL G92 FOP HL 
0192" ce Se RET 
S94 
89D 
Rt, Wah apa ta allie Sie is ee ar he eS RN nc eee tS 
S97 
sve S_LOAD SSCAN THE STATEMENT FIRS1 
OLR  POCBICES 99 SET 4, (IY4FLAGS3-Y) SSET A “LUALY FLAG 
O197, CHODDO =—-R GOO CALL SCANN ;USE THE “SAVE’ PARAMETER SUBROUTINE 
601 
4.02 PLOAL RUN-TIME. 
O19PA =CRAEOL R 602 JP LSTEST 
604 
WOOT SRS ee ih ss ret a a tee Me er ee eo 
606 
607 
602 S_VERI SSCAN THE STATEMENT FIRST 
O19D) = FDCB7CFE 609 - SET 7) (IY+FLAGS3-Y) 3SET THE VERIFY FLAG 
O1AL cnoo0d0 R410 CALL SCANN 
é14 
S12 =. sVERIFY RUN-TIME 
O1Aa = CBAEOL = R18 JP LITEST 
614 
ON Reh ae an alae ea oad ct ie are oe ee 
616 
GAT 
612 S_MERG 3SCAN THE STATEMENT FIRST 
O1A7 —- FDUB/UF6 619 SET 6» (1Y+FLAUS3-Y) sSET THE MERGE FLAG 
O1AH choo00 §=R 620 CALL SCANN 
&21 
422 3MERGE = RUN-TIME. 
622 
2 alae, (ecm rman RO prea area MET Ate ON em PE Se TENN ON ERCP Artry aE TRE NERC N en eee On EN Ace 
&Z5 
6246 L_TEST SCONSIDER "N" & "B", RETURNING IF "M" 
27 
629 - $FIRST SAVE THE “SCANN“ PARAMETERS 
O1AE = 21E65C 629 LD HL,DR+HU_00 BASE OIF “SCANN’ PARAMETERS 
O1B1 = 11 DESC 620 LU DE, DR+SC_00 $BASE UF FRESERVING AREA 
O1B4 = o10700 631 LD BC,0007H 
O1H7  ELHO 22 LDIR 7PRESERVE THEM 
633 
634 . 7 
635 sNOW FETCH THE “INCOMING” HEADER 
O1B? 3AN?5C 636 LO A, (DRtL_SfR1) SKETCH THE LETTER 
O1nC FEE 437 CP 4EH 31S 1T “N°? 
O1BE 280C 628 JR ZsL11 : 


* 


Luc” 


O1LLO 
o1c2 
o1c4 
O17 
OLA 


O1Ce 
O1CcF 


O1D2 
O10 


OLL7 


OLD 


one 
o1po 


OLUF 
OL1E2 
OLE4 
OL1ES 
O1E? 
O1ER 
OLEC 
OLED 
OLEE 
O1EF 


O1F1 
O1F4 
O1FS 
O1FS 
O1F? 


O1FB 
O1FD 
OLFF 


O20L 


O2028 


0203 
0207 
OZ09 
ozon 


OB CODE M STMT 


FE42 
Ze0E 
cpoo0e0g * X 
Coooga x 


1225 


cCbnooo0o0 x 
CDooVd X 


21E465C 
0409 


ES 

cs 
FOCB7CSE 
2807 


CLOOOO x 


X 


23 


10E4 


SADESC 


FOCH7C76 
2050 
FOUCB7C7E 
CcA000g x 


FOCR7C74 


639 
640 
641 
642 
643 
644 
645 
&46 
647 
443 
649 
650 
631 
652 
4653 
654 
655 
654 
G37 
633 
659 
660 
641 
662 
662 
644 
665 
444 
667 
663 
469 
470 
&71 
672 
673 
674 
&75 
476 
67/7 
678 
4&7? 


SH_SAVE 


SOURCE STATEMENT 


L_T35 


Lr 


LTS 


H_SORT 


HERR 


H.S1° 


Poscstud, ee icaiea ane eet ee ee eR ee een e in 


VE.CON 


CP 42H 

JR Z»L_T2 
CALL MNCHEE 
TALL GETHD 
JR HOSORT 


CALL N CHEK 
CALL NTEMP 


LD HL, DR+HD_00 


LO R,O9H 


PUSH HL 
FLUSH BC 


BIT 3, (IY+FLAGS3-Y) 


JR ZLT4 


CALL IN_BY1 


JR NC,L_TSS 


HR LTS 
CALL IN_BYP 


JR NC LT4 


POP BC 
POP HL 
LD (HL)»A 
INC HL 
DINZ L_T3 


PAGE 12 
| ASM 5.9 
$1S IT “H’? 
sSENSURE IT IS “M* 
SGET MICROORIVE HEALER 
STHEN SORT OLN 


SCHECK THE STATION NUMBER 
SUREATE A “TEMPURARY’ NET CHANNEL 


3PREPARE TO FETCH THE NEW HEADER 
7WHICH WILL HAVE NINE BYTES 


SSAVE POINTER 
3SAVE CUUNTER 
SUSING THE NET? 


sFETCH A BYTE FROM THE NET 


SFETCH A BYTE FRUM THE RS232 


SREPRIEVE THE COUNTER 
sRETRIEVE THE POINTER 
SENTER THE BYTE 

SSTEP ON 

;BACK FUR MURE 
SCONTINUE INTO H-SORT 


SANALYSE THE HEAVIER 


LO A, (OR+EC0_00) 


LO BLA 


LD A, (DR+HD_00) 


CP B 
JR NZ,H-ERR 


CP 03H 
JR Z,VE_CUON 
JR C,HOS1 


RST SH_ERKR 
LEFR 14H 


SFETCH THE “SCANN’ 
3SAVE 1T AN “B¢ 

sFETCH THE “INCOMING” TYPE CULE 
SARE THEY THE SAME? 


TYPE CODE 


31S IT A CODE BLOCK? 
sJUMP IF IT IS 


SWRONG FILE TYPE 


BIT 6) (IY+FLAGS3-Y) 


JR NZ,MELCON 


SFORWARD IF MERGING 


BIT 7, (CIY+FLAGS3-Y) 


JP Z,LD_CON 


SHANULE ALL VERIFICATIONS ANU THE LOADING OF COLE BLOCKS 


SFURWARD IF LOADING 
sCONTINUE WITH VERIFY 


BIT 6, (IY+FLAUS3-Y) 


Pe ne ee eee are 


SH_SAVE . PAGE 13 


Let O83 CODE M STMT SUURCE STATEMENT ASM 5.9 
O214 2202 697 JR ZeVE_C1 SMERGING OF BLOCKS IS NOT ALLOWED 
692 . : 
O214 bE? : GPy RST SH_ERR SBLOCKS CANNOT BE MERGED 
O27 14 700 DEF 14H 3 “MERGE’ -EXROR 
FOL 
ALF St 7O2Z Vk_Cl LO HL, (DR+S5C_OB) SFETCH THE “ULUS LENGTH 
EDSBE7SC 792 LD DE, (UR+HD_O0B) SAND THE “NEW" LENGTH 
7c 704 LD AH 
BS 7035 ORL 
220E 706 AR Z»VE_CZ sJUMP IF NG START SFECIFIED 
ENS2 707 SBC HL. DE 
300A 7O8 JK NC» VEUCe SERROUR IF BLOCK Tod BIG 
7oO9 
O227 FDIUCH7C44 710 BIT 4, (IY+FLAGS3-Y) 3 CODE/VERIFY 
O22B 2902 711 JR Z,VE_C15 
712 
o22n 7 712 RST SH_ERR sCODE ERROR 
OZ2E 13 714 DeEFB 1H 
JAS VE_Ci5 
714 
O22F E7 717 RST SH ERR 
O230 15 718 DEFB iSH SERROR IN VERIFICATION 
DAP 
2AE 1S 720 VE_C2 LD HL, (DRESC_LOD) SFEITCH “OLD” START 
NO7EO4 a1 Lo A, CIX+CHTYFE) 315 IT A MICRODRIVE 
FECD 722 Cr “Mo +S0H 
ZOE 722 JR NZ,LOLCSS 
SAR4SC 724 Lu HL, (DR+N_USTR2E+2) SRELOCATED ADURESS Cit ARRAY 
1211 7235 JR Lon4 
; 726 LDO_C35 
o240 FOCBR/CSE 727 BIT 3, CIY+FLAGSS-Y) 
O244 ZEOR 723 JR Z,LDLLI4 3 JUMP IF USING THE RS232 
729 ; 
O244 SAE4SSC 720 Lo A, (DR+HD_OO) SDUNT BOTHER TO RELOCATE COLE 
ong e 731 CP 3 , 
O24H 73220 JR Z,LD_D4 
o24n OL1L401 7324 LD BC,N_ULEN SELSE ALLOW FOR THE NEY CHANNEL 
o250 oy 735 ADO HL, ec 
736 
737) «=LOiLD4 
7O Sa LO A.H 
BS cee OR L 
2003 740 JR NZ,VE_C3 : SUSE IT IF SPECIFIED 
ZSOEVSC 741 LD HL, (OR+HO_OD) SELSE USE THE “NEW” START 
742 
o255 SAE65SC 742 VE_C3 LU Ay (DR+HD_OO) SFETCH THE TYFE COLE 
O25R A7 744 AND A 
galt 2003 74S JR NZ,VE_C4 
O235E 2AS25C TAG LU HL, CFPROG) SUSE “PROG? IF VERIFYING A FROGRKAM 
747 
O261 CHOOOO X 742 VE_C4 CALL. GETWBL s;NOW LOAD/VERIFY THE CODE BLUCK 
0264 1921 749 JR SLVHEX | ; SEXIT (RECLAIMING NET CHANNEL IF USED) 
750 
TA e 
Pe See Soe ele oe ee Se ee Se ee Ps 
733 
754 


“) 


“7 


ozs 
O297 


SH_SAVE PAGE 14 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
735 
736 
: 757 ME_CON SCONTROL ROUTINE FOR MERGING PROGRAMS AND VARIABLES 
SALESC 752 Lo A, (OR+HD_12) 318 THERE A LINE NUMBER? 
ESCO 759? ANL OOH 
740 
2005 Tot JR NZ,ME1 7NO CONTINUE. 
742 
cnoo00 =X )=—763 CALL = DELTMP 
E7 164 RST SH_ERR 
14 765 DEFER 14H + “MERGE” ERROR 
764 
767 MEL 
EL4BE7SC 768 LU BC, (DR+HU_OB) + “LENGTH? 
cs 169 PUSH EC 3SAVE A COPY 
770 
o3 771 INC BC SMAKE ROOM +4 IN THE WURKSFACE 
07 7/2 RST CALBAS 
2000 773 DEFW ©OZ0H> cop yuP 
774 
2430 775 LD (HL), S0H SENTER A “SOH* INTO THE EXTRA LUCATION 
77% 
Eu 777 EX DE,HL SBASE TO HL 
D1 AE: POP DE sLENGTH TO DE 
oi 779 PUSH HL +FOR THE “LINES” & THE “VARIABLES” 
720 
choG0O =X 731 CALL GET_HL SNOW GET THE BLOCK 
732 
1 733 POP HL *RETRIEVE THE PUINTER TO THE LOADED “LINES & VARIABLES” 
017 734 RST CALBAS SCALL THE “MERGING? SUBROUTINE 
cEoe 725 DEFW O8CEH). St | eee 
737 
TR Fe cae ee ss oa eee eS le a tN ly ee 
739 
720 
771 SLVMEX 
DD7EO4 192 Lo A, (IX+CHTYPE) 
FECL 292 cr “Me +80H 
2008 794 JR NZ,SLV2 
cpo000 =X 795 CALL CLOSIX 
1200 736 JR SLVI 
797 SLV2 
FOCB7CSE 798 BIT 3, (1Y+FLAGS3-Y) sUSING THE NEI? 
2806 199 JR Z,SLV1 
200 ; 
201 SOTHERWISE RECLAIM THE “AD HOC’ NET CHANNEL 
cpoo0o0 =X B02 CALL NTCLSE 3SEND THE FINAL BUFFER 
cpoo0o =X B08 CALL = DELTMP 
204 
cz0000 X 805 SLV1 JP END sEXIT AS USUAL 
£06 
BOP Re rece ate acing dace eA ec tana iar 


e 


tiie 


\ 


mn Loo oe. cone M stmt 


LO) hy oo tg 
MBWH 


SOURCE STATEMENT 


SH_SAVE2 PAGE 1 


ASM 5.9 


SH_USAVEZ?. ! 


we we us we we vs we 
tee] 


#INCLUDE SH_S_V.S 


SHADOW ROM SYSTEM VARIABLES 


INCL NEWVAR. S 

TAGE IIE EEE IEEE EEE AGREE ETHER 
i NEWVAR. 3 # 
H 29/4/23 # 
+ 


FCCC GRIGG GTI GG EEE ETRE EERE Hae 


4 


CHE SESE SERGE RHEE ITT AE IESEEGEGIGRGROIEE ONG RR GIES HR GEE 


8 ve we we ve we we ws ws we we x we we se we ve we ve 


AEFI IEGEIGIHIEIUBIUGIBFIEHITEUHTE HBG HEGGHEE EE RETIRE inset nae 


SEGA EIGER HB HGGTBUETETEEEEHGEE HE GGEEEHE EIR IE tae 


SAHA EGGBEGG GGG TEEETGTBGEEH TEEPE BEER E EERE aE 


SHEET BB;EIIGEHEETGEEEIEETEBEHETEBBEI EHF EEEEE RRR IEEE 


TESTING 


+ SYSTEM EQuaies # 
FAERIE TEE EEE EEE EEE EIGER IEEE 

FORTC Eau OEFH SUURIVE CONTROL/STATUS PORT 

FORTO EQU OE 7H SATA FORT ADORESS 

SELD Eau OFEH SDURIVE SELECT DATA 

SELC EAU OFDM SDRIVE SELECT CLOCK 

WRITE Eau OF EH SWRITE CURRENT ON 

ERASE EQU OF 7H SERASE CURRENT ON 

CTs EQu OEFH SCLEAR TO SEN OUTPUT 

3 ; 

SYNC En 2 SSYNC BYTE DETECTED SIGNAL 

PROTECT Ev 1 SWRITE PROPECT SiGNdDL 

GAP Eau 4 SGAF SIGNAL 

RUSY Eou 10OH 

FLEN Eau 2 SLENGTH OF FREAMELE 

HOLLEN EQuU PLEN+1441 $LENGTH CF HEADER BLUCK FLUIDS PREAMELE 

D_LEN Eo HD_LEN+512+ 3LENGTH OF DATA BLOCK 

HO_MAX ERU 255 : SNUMBER OF BLOCKS UN TAFE 

TRYS EQU i INUMBER OF TRIPS ROUND TAFE 
SBEFORE GIVING UP 

GAPT3 EAU 340 STHE DEC BC WELAY BETWEEN RE@UING 
SA HEANER, CORRECTING IT, 
3IF FREE AND WRITING A DATA BLOCK 

GAPT1 EqQu GAFT23+74 3THE DEC fC DELAY BETWEEN WRITING 

' 3A HEALER BLOCK AND WRITING A 

SUATA BLOCK 

GAPT2 EQU S31 3THE DEC BC DELAY BETWEEN ENT! OF 


oar. re 


Pe re. hae hg 


7A TAIA BLOCK AND BEGINNING OF 
#HEALER BLOCK 
STHE DEC eC DELAY IS 24 T-SIATES 


Loe 


cB! CODE M STMT 


SH_SAVE2 PAGE 2 
SOURCE STATEMENT ASM 5.9 


7OR 7.4Us 


$THE ABOVE TIMINGS ARE HOPEFULLY 
sFOR A HEADER OF LENGIH 840US, FOLLOWED BY A GAF OF 3.0643, FOLLOWED 
DATA BLOCK LENGTH 21.9MS,FULLOWED BY @ GAF OF 4N5, 


sBY THE 


ERROK 
INSERT 
DELREC 
CHANS 
STEEND 
SfKBOT 
MEM 
SELECT 
SEMDTV 
OUTCH 
INCH 


we we we ve we we 


“se 


RIBAZE: 
ENTRY: 
CALBAS: 
SYNT®: 
SH_ERR: 
ROMERR: 
INSER, 
MASK: 


s HASE 


LAST_K 
DEFADD 
STRMS 
Y 
ERR_NR 
FLAGS 
TV_FLAG 
ERR_SP 
NEWPFPC 
NSFPC 
PPC 
SUBPFC 
BORDCR 
VARS 
CHANS_ 
CURCHL 
PROG 
DATADD 
E_LINE 


_ CHADD 


Eau 
EQu 
Eau 
EQU 
Eau 
Eau 
an 
EQU 
EqQu 
EQU 
EQu 


EQu 


Ew 
EQu 
Eau 
EQu 
EQu 


ROM 


EQU 
EQUI 
Eau 
EQu 
Enu 
Eau 


EQu 
Eau 
Eau 
Eau 
Eau 
EQuU 
Eou 
Eau 
EQu 
Eau 
Eou 
EaU 
EQuU 


SERROR HANULING IN ROM 

3MAKE SPACE IN RCM 

+DELETE SPACE IN ROM 

SADDRESS GF CHANNEL CATA 
SADDRESS OF START OF SFAKE SPACE 


SCHAHNEL SELECT SUB. IN OLD ROW 
STV BUTFUT PROCEDURE 

'SCHANNEL GUTPUT ROUTINE 
SCHANNEL INPUT ROUTINE 


SHADOW ROM SYSTEM VARIABLES 


PERE TE HEHE FE FETE SE TE ETE FE SE HE EE SEM SE SE HE SE HE HEHEHE HE SE HE SE HE SE SE HE SE HE SESE SE HE HE SE SE EE HE SE EE SE EE SE EEE HE SEE 


SYSTEM RESTARTS 


EG! OOOOH 
QO0S3H 

EG OO10H 
QO18H 
0020H 
OO2SH 
OO30H 
oozS 


ADDRESSES 


SCOSH 
SCOBH 
SCLOH 
SC GAH 
SC3AH 
SicGBH 
EaQu! SCSCH 
SCS 0H 
SC42H 
SC44H 
SC 45H 
5C4/H 
5C43H 
SC4BH 
SC4FH 
SCS1H * 
SC5SSH 
5C57H 
SCS9H 
SCSDH 


RECURS ION 


LOAL 


SNEW COMMAND VECTOR FOINT 


STORE FOR 


CHARACTER 


CH_UALIL 


(1) TYFE CODE 


“ SH_SAVE? PAGE 3 
Lac OBJ CODE M STMT SUURCE STATEMENT ASM 3.9? 
. 117 X_PTR EAU SCSFH 
* 118 FLAGS2 Eu SC4AH 
119 FLAGX EQu SC71H 
20 LID Emu! st7BH 
121 SCRCT EQu SimsCH 
122 ATTR-P EW SCspH 
123 ATTR.T EGU SCSFH 
124 P_FLAG EWU SC91H 
125 OR EQU SCBR4H 
124 
127 
125 
12y 63 ; 
130 SHH HEE EE EHH HH HHH JHE EE EEE HHH HHH 
131 3% FIXEO MICROURIVE LATA # 
{32 S$ HEME FEE HE SEH HE HEHE HE HE HE HE HE SE SE EE SE EE ESE EEE EE HE EE EEE EE EEE HE EEE 
5 ce ; 
i343 
135 sTHIs FIXED DATA IS FOUND IMMEDIATELY AFTER THE SYSTEM VARIABLES 
136 $THE SPACE IS CREATEL WHEN THE SHADUW ROM (5 FIRST CALLED 
137 63 : 
133 FLAGSS EQU DR 323734 SBI1 © wee 
13) SBIT 1 ... ALTO RUN 
140 SHIT 2... HOOK 
141 SBIT 3 ... NET/RS222 
142 SHIT 4 ... LOAD 
143 SEIT S ... SAVE 
144 sBIT 4 ... MERGE 
145 SHIT 7 ... VERIFY 
144 XR Ew 7 SINUITATES VERIFY NO 
147 VECTOR Eu O1H S23735/6 
142 SBRT EQU VERIOR+O2H $23737 SSTART OF CALBAS SUBROUTINE 
149 Hob EQU SaRT+O01H 
150 ZILCH EQU SERERT+04H 
151 BAUD EQuU SBRT+0Al1 323747 SRATE FOR RS232 
(1582 NIPSTAT EWU BALITAOSH 322747 3“QWN”’ STATION NUMBER 
153 IOQBORD EQU NTSTAT+O1H 323750 SBORVER COLOUR FUR I/0 
154 SER_FL EQU IOBORD+0O1H 323751 SSERIAL INFUT FLAG & 
155 SEND OF DEFAULT SYS. VARS. 
154 
157 
15¢ SSTART OF VARIABLES 
1s9 «SECTOR EUW SER_LFL+02H+0IR 323753 SNICROURIVE SECTUR 
140 CHADD. EOU SECTOR+O02H-DR s23755 3 TEMPORARY 
161 NTRESP EWU CHADD +02H 323757 SSTORE FUR RESPONSE CODE 
142 
143 ‘ sTHE EIGHT LOCATIONS FOR A NET HEADER 
164 NTOGEST EQU NTRESP+HO1H 323755 ;DESTINATION STATION NUMBER 
145 NTSRCE EOQU NTDEST+O1H 323759 SSOURCE STATION NUMBER 
164 NTNUMB EQU NTSROEtOLH 323760 sBLOCK NUMBER 
147 NTTYFE EQU NTNUME+02H 323742 “DATA (9) OR “CLOSE 
143 NTLEN EQU NITYFE+OLH $2:3762 sDATA BLOKE LENGTH 
16? NTLCS EQU NTLEN+01H 3223764 DATA CHECKSUM 
170 NTHCS 9° EQU NTDOCS+0O1H $23765 SHEAGER CHECKSUM 
171 
172 3THE SIXTEEN LOCATIONS FOR FARAMETERK COLLECTION 
173 DISTRI EQU NTHCS+01H 323764 3TWO BYTE NUMBER 
174 S_STR1 EGU DLUSTRI+02H $223768 STREAM NUMEER 


SH_SAVE2 PAGE 4 


Loc . OBJ COLE M STMT soURCE STATEMENT ASM &.9? 
178 LoSTR1 EQU DUSTR1+03H 323749 SLETrER 
176 N_STR1 EQU DUSTRI+04H 322770 3NAME DETAILS (LENGTH & START) 
” 177° DUSTR2 EQU 2X D_STRI+02H 323774 $ ## SECUNE SET a4 
178 S_SIR2 EAU DUSTRI+OAH 22774 
179 LISTR2 EUW DLSIRI+ORH 322777 
120 NISTR2 EQU DLUSTRIFOCH 3223772 
191 : 
182 
183 Sc_oo EQU D_LSTR1+08H 123774 3SECOND SET FOR SCANN 
184 SC_oB EQU DLSTRIt07H 32:37) 
185 st_op EQU D_USTR1+0BH z 
124 SC_LOF EGU OUSTR1i+00H 
127 
123 
129 -3 THE NINE LOCATIONS FOR “SAVE‘, “LoaD’ ETC. 
170) ~=HD_OO EQU OLSTR1+10H 2 $TYPE CODE 


i?1  HD_OB Eau HD_00+01H 


;LENGTH OF BLOCK 
192 HD_oc E@U HNLOB+01H 


193 Hp_on EQU HU_OC+01H $23785 SS1ART OF BLOCK 

194 HD_OE EGu HD_On+01H 323786 ONS) 8 

173 HD_OF EQU HD_OE+O01H 123727 PROGRAM LENGTH 

176 HD_10 EQ@U HD_OF+01H 3728 \ > 

197) HUL11 EQU HD_10+01H 323789 sLINE NUMBER 

198 HO_12 EGU HO_11+01H 32372970 : 

1?9 

“00 COPIES Eat HD12+1 $2379 1 

201 

Fa2 

202 ROMADL EQU HLIL10+01H $23739 SFASSING ADDRESS FOR HOOKS 
204 

205 DRILEN EQU COPIES+01H 

206. N_LEN EQ@QU O114H 3LENGTH OF A NET BUFFER 

207. 

203 

209? $3 RS2B2Z PORT DETAILS 

210 

eli RS232 EQuU OF7H . SERIAL LATA FORT 

212) KB_PT EQU OFEH SKEYBOARED FORT 

212 STATUS EAU OEFH SSERIAL STATUS PORT 

214 DTR EQu OSH IMASEK FOR DIR OUTPUT 

215 

214 $ NE! PORT DETAILS 

217 SERIAL EQU OF7H 3SERTAL DATA FURT 

213 WAIT EQU OEFH sWAIT PORT 

Z19 

220 3 

221 3 

222 JISBEIGGBEEGEBEGEE ETE UE IFEHEIGEEEGIEEEEEHEE AES AE 

2ER 5 MACROS + 

22 JAEGGI ERIE EEE EGER IGE EEE Reade 

225 3 

226 RST MACRO #ADUR ¢THIS MACRO WILL BE USED To FLAG 
227 RST #ADDR , SCALLS TO THE RUM WHEN THIS S/WARE 
228 ENUM IS CONVERTED TO SHaALOW ROM FURM. 
229 3 

220 ASSERT MACRO #CONL 

231 COND .NOT. (#COND) 

232 HHH ERHERROR IN ASSERTION #CONL 


POEM re i 


SH_USAVE2 PAGE 3 
Loc OH.) CODE M STMT SOURCE STATEMENT ASM 5.9 
233 ENLIC 
ENDM 
: ‘ 
OLUCAL MACRO  #SUIR 
RST CALBAS 
DEFW SUE 
: ENDM 
240 3 
241 OLLJP MACRO #DEST 
242 uP #DEST 
243 ENDM 
2443 
245 3 
244 3 
247 3 FETE TERETE HEHE AE HEHE SE HEE SE HEE JE SE IE IE IESE SEE HEE IE GE EE TE HE HE HEHE HEHE IE HE HE IE 
249 $8 DATA H 
PAD 3 FEE HEHE SEE AE AEE SE HEE SEH EE HSE TEE HEE EEE EE EEG EGE ESE EE SE 
2n0 3 
251 | 
252 3 ESE HEE FEET TEE AEE SESE SESE EH ECA NINE: L846 $6 EE dE EE EE aE EE SE aE 
B53 3 
254 3 
255 $THE FOLLOWING DATA IS CREATE’D FOR EVERY OPEN MICROURIVE FILE 
256 SAND SOMETINES FOR A WORKSPACE IN MICRUORIVE OPERA IICNS 
257 3 
252 3 
257 sOLD WRCH ALLRESS FOINTS TO o002 
260 SOLD ROCH ADDRESS FOINTS Ta coos 
261 CHTYPE Bila 4 sCHANNEL TYPE 
262 $NEW WROH ADDRESS fa 
263 $NEW RDOCH ADDRESS \ 
244 CHLEN EOU CHTYPE+S sLENGTH GF THIS CHANNEL DATA 
26S CHEYPE EC CHLEN+2 SCURRENT BYE POINTER 
244 CHREC EAL CHEYTE+2 SCURRENT RECORD 
267 CHNAME EQU CHREC+1 $10 BYTE FILE NAME 
248 CHFLAG EAL CHNAME+10 SCHANNEL FLAGS 
2a 
270 WRELG EGU oO SWRITE FLAG BIT 
271 3 
272 CHIRIV EAU CHFLAG+1 sDRIVE NUMBER O-7 
273 CHMAF  EoU CHURIV4L SADDRESS CF DRIVE MAP FuR THIS FILE 
274 3 
275 CHHUR  E—n CHMAF +2 SSTART OF HEALER 
27& HOUFLAG Eau CHHUR+PLEN SFLAG BYTE AT START UF HEADER (BIToO=1) 
277 HONUMB Ett HDFLAG+1 ;NUMBER OF CURRENT HEADER/SECTOR 
272 : SFULLOWED BY TWO EMPTY BYTES 
27% HDNAME EAL HOUNUMB+3 sTAPE NAME 
280 HDCHK EGIL HONANE+10 SHEALER CHECKSUM 
2 : 
282 $sTOTAL LENGTH OF THE ABOVE FLEN + 15 
282 3 
284 CHDES EAU HLH +4 3START OF LESCRIPTOR 
285 RECFLG ECU CHIE S+FLEN JSFLAG BYTE IN DESCRIPTOR (BIroO=0) 
2R4 SBIT 1 = EOF 
227 s81T 2 = SLYM 
288 RECNUM EAU RECFLG+1 sNUMBER OF THIS RECORD 
289 RECLEN EGU RECNUM+1 SLENGTH OF THIS RECURD 


290 RECNAM Ea RECLEN+2 SNAME OF THIS RECORU 


Se 


© 


LOC 


Ooodc 
an04 


OOO7 
OOO 
OO? 
OO0A 
OOO: 
Qoon 
QODE 
QOOOF 
ao1d 


OO12Z 
oo18 
O016 
oo17 
Oo1? 


OO1B 
OO1E 
OOLF 
e020 
e021 


SH_SAVE2 FAGE 6 


OB. CODE M STMT SOWRCE STATEMENT ASM 5.9 
291 DESCHK EGU RECNAMN+10 SDESCRIPTUR CHECKSUM 
292 CHDATA EQU DESCHE+1 3START OF DATA BLOCK 
293 DCHK EQu CHDATAFS 12 sDATA CHECKSUM 
RP4a § 
2?5 CHANLN Eau DCHE +1  TLENGTH UF ALL THIS 
ZIG § 
D7 FMEA EAE SE AEE EAE AE HEE EE HEE aE MAY Pt SE EE SEE EEE SEE HE ESE HE HEE ETE EE HE EGE 
293 3 , 
299 3A MICRODRIVE MAP IS A BIT MAP OF ALL SECTORS ON A MICRODRIVE 
300 6$THE BITS ARE COUNTED FROM O TO HDUMAX-1 THE LENGTH 
301 $0QF THE MAP IS THEREFORE GIVEN BY:- 
Boz ¢ 
30° MAPLN EQu 32 
. BO4 3 
305 $THE MAP IS CREATE“D FOR EVERY DRIVE CONTAINING AN OPEN FILE 
BOG 3 : 
S07 #LIsT ON 
208 
3209 
310 
311 GLOBAL LDOCON 
S12 GLOBAL GET_BL 
B13 GLOBAL AUTO_LR 
314 
315 EXTERNAL HUSORT, T_FR_1,GETOHD 
S16 EXfERNAL SLVNEX 
317 EXTERNAL IN BYP, IN BYT 
31% EXTERNAL GE TMBL 
319 
220 
322 | 
3273 LDUCON SLOAN A FROGRAM OR ARRAY 
EDSRE/5¢ 324 LD DE, (OR+HDOR) SFETCH THE “NEW* LENGTH 
SAEISC 325 LO HL, (OR+SC_00) SANU THE “OLDS START 
B26 
327 SCONSIDER HOW MUCH EXTRA RAM WILL BE REQUIRED 
ES B28 PUSH HL 
7 329 LO AH 
BS 230 OR L 
2006 B31 JR NZ,LOLC1 
12 232 INC DE SONE FOR THE “DESCRIPTOR” AND TWU FOR THE 
3 333 INC DE 
13 324 INC DE 
ER ce sebat EX vE,HL 
1s0? 336 JR LOLC2 
337 
2ADF SC 338 LOC LO HL, (DR+SC_0B) 
ERB S37 EX GE,HL 
3 340 SCF 
EDS2 241 SBC HL, DE 
3809 342 JR C, LDCS 
343 
110500 344 LD_c2 LD DE,OO005H ’ SFIVE EXTRA LOCATIONS ARE ALDED FOR “LUCK? 
19 345 Ant HL, DE : 2 
44 344 LD BH 
4p 347 LD CoL 
D7 348 RST CALBAS 


| petenbee. ee 


“LENGTH? 


Lac 
O022 


Oo24 


OO8S 
0022 
0029 


OO2R 
oOoen 


oo2D 


O02F 
0032 
oO024 
OO2G 


039 


QOSR 
OO2F 


OO4L 
0044 


Oo4s 
OOF 
OO47 
0042 
OO49 
OO4A 
OO4k 
oOo4l 
oo4n 
OO4E 


OOO 
OOS2 
O08 4 
OOS 
OOSD 
OORA 
OoOs 
OOS 
OOSF 
0040 
OO41 
QO0G3 
O064 
OO6S 
O06S 
O067 
O0462 
00462 
0068 
Q0O4B 


SH_SAVE2 PAGE 7 


OBJ COLE M STMT SOURCE STATEMENT a2 ASM 5.9 
Os1F 349 DEFWIFOSH “ = STEST THAT ROOM EXISTS 
350 . 
E1 ; 251 LDCS 9 POP HL 
252 
253 SSEPARATE PROGRAMS FRUM ARRAYS 
SAEGSC 254 LD As (OR+HEI_OO) #FETCH THE TYPE CODE 
A7 355 AND A if . 
2447 354 JR Z,L_PROG SJUMP FORWARD TO LOAD A. PROGRAM 
357 - to 
353 #DEAL WITH NUMERIC ANU STRING ARRAYS 
As 359 LD ASH 
BS 240 OR L 
22 361 JR Z, LOD SJLIMP IF A “NEW! ARRAY 
B42 
263 SELSE RECLAIM THE ‘OLD’ ARRAY 
DO7EO4 364 LD A, CIX#CHTYPE) #18 IT A MICRODRIVE 
FECD 345 cr “M?+80H 
2005 26h UR NZ,LD_CaS 
2AE ASC 267 Lp HL, (DIR+N_STR24+2) SRELOCATED ADDRESS OF ARRAY 
SOA 2468 UR LD_n4 
369 LD_L35 
FOCE/CSE 370 BIT 3, (IY+FLAGS3-Y) 
2E04 371 JR Z,LD_04 sJUMP IF USING THE R232 
272 
111401 373 LD DE,N_LEN SELSE ALLOW FOR THE NET CHANNEL 
19 374 ADD HL, DE 
275 
2B 374 LULD4@ DEC HL SBACK ONE 
a 377 LD B, (HL) sFETCH HIGH LENGTH 
2B 378 DEC HL 
4E 379 LD C, (HL) SFETCH LU LENGTH 
2R 330 DEC HL 
o2 321 INC BC SCOUNT UP BY THREE 
02 382 INC BC 
raped Be ING BC 
LI7 224 RS) CALBAS 
ES19 335 DEFW (19ESH +“ DELREC’ 
se (SESH fet 
2ASISC 287 LDLDS LD HL, (E_LINE) 
2B 282 LED HL ;FIND ENDL! OF PRESENT VARIABLES AREA 
ED4BE75C 9 -BS9 LD 8C, (OR+HD_OB)$FETCH NEW LENGTH 
cs 290 PLUSH EC STAKE A CUPY 
OR 371 INC BC SUP BY THREE AGAIN 
o2 272 INC BC 
03 392 INC BC 
SAER5C a4 LD A, (OR+SC_OF) 3FEYCH THE LETTER 
FS 395 FUSH AF ;SAVE IT BRIEFLY 
D7 294 RST CALEAS — 
S516 397 DEFW (1655H 1” Sake THE ROOM KOR THE NEW ARRAY 
23 392 INC HO 
Fl 299 POP AF - SRETRIEVE THE LETTER 
77 400 LD (HL).A sENTER IT 
m1 401 POP DE P 3FETCH THE LENGTH 
23 402 INC HL 
73 402 LO (HL)E 
22 404 INC HL 
72 405 LD (HL).D SENTER THE LENUTH 
23 404 INC HI. 


Loc. 


OO4C 
QOGF 


OO72 


O74 


QO7A 
oo7D 
QOO7E 
OO7F 


Oo yp 24 
ao > 4 
OOFT 
OO7e 
OOTA 
OOFt 


OOAD 
OOAZ 
OOA4 
QOA7 


QOAE 
QOAE 


OOR? 
OoOBs 
OOBS 


OCR7 


SH_SAVE2 PAGE S 


OBJ CODE M STMT SCURCE STATEMENT ASM 5.9 
407 ‘ 
402 SNOW GET THE ACTLIAL ARRAY 
COBP00 “‘R 409 LONG CALL GET_BL $GET THE ACTUAL BLOCK 
c30000, =X) 410 JP SLVMEX 
411 
A12 
AVR Nicst ose nue en a oe ee eat Aton Bete to ah Pee 
414 
415 
416 
417 L_PROG sRECLAIM THE ‘OLD’ PROGRAM 
FOCE7CEE 412 : RES 1, (1Y+FLAGS3-Y) SDONT WANT TO FROFECT ALL Loans 
41? SUNLESS LINE WAS SPECIFIED 
EDSBS SC 2 LD DE, (FROG) THE BASE ALWIRESS IS TO BE “PROW- 
ASP5C 42 LD HL, (E_LINE) 
OR 422 DEC HL 
LI7 423 RST CALBAS pen BE 
ESL? 424 LIEFW ¢ CPESH SRECLAIM THE “GLD’ PROGRAM AND VARIABLES TOIALLY 
425 
A246 SNEX1 CREATE ROOM (TESIS IT IS POSSIBLE) 
EQ4BE75C 427 LO #C, (OR+HD_Of) SFEICH THE LENGTH 
SAS35C 423 LO HL, (PROG) \ 
07 4zo RST CALBAS : 
ES14 420 DEFW CESS we, ~AMAKE SUFFICIENT ROGM 
434 \ 
422 SET VARS & NEWFRC AS REQUIRED 
23 433 ING HL Be 
EL4BENSC 424 LU BC, (DR+HD_OF)$FETCH THE FROGRAM LENGTH ~ 
oF | 255 ADD HL, BC pee 
DEAE 4246 LO (VARS), HL TENTER THE REQUIRED VALUE FOR VARS 
S0EE SC 427 LO A, (DR+HD_12) tLINE NUMBER? 
67 428 LO HA 
E4CO 429 AND OCOH sTEST IT 
ZO00F 440 JR NZ,»L_P4 sJUMP IF “FFH? 
FOUCR7CCE 441 SET 1, (IY+FLAGS3-Y) sNOW WANT TO PROTECT IT 
442 
2A DSC 443 LD A, (DR+HD_11) FETCH THE LOW NUMBER 
6F 444 LOLA 
22425 445) LO (NEWPPC),HL sENTER IT 
FOZ40A00 446 LD (IY+NSFFC-Y),00H 3ZERO STATEMENT NUMBER 
447 
442 : 3SET UP REGISTERS FOR THE ACTUAL LOADING 
2ASz5C 449 LPL LD HL, (PRO) BASE ADDRESS 
ELUSRE75C 450 LU DE, (DR+HD_OB)$ BLOCK LENGTH 
451 
452 STAKE THE OPFORTUNITY HERE TO RESET DATADD 
2B 452 DEC HL 
22575C 454 LD (DATAUD) ,HL 
22 455 INC HL 
ASG 
12B3 457 JR LEDS COLLECT THE BLOCK ANL! EXIT 
45a 
459 
AGO. Woeeo we aS teem a cee nS ge Soe ae ne ta 
aal 
462 
462 GET_BL 3GET A BLOCK FROM THE NET OR THE RS232 
464 $DE HOLOS THE LENGTH 


Lac 


QOOR'? 
QOKA 
OOBRB 


OORC 
OOBF 
Oocl 
OOK? 
OOS 


O0C7 
o0c3 
oor? 
OORD 


OOCF 
vole 
VOLI4 
OOnS 
OOD? 
OOTIB 
‘OOTNI 
OO nL 
Oo DE 
QOE2 
OOL4 
OOES 


OOE? 
OOES 


QOEA 
QOOER 


OOEC 
OOED 
OOEE 
OOEF 
QOF 1 


OOF 2 
OOF S 
OOF? 
OOF 
a1o00d 
Q103 


0107 
OLOB 


O10E 
O111 


OB) CODE M STMT 


7A 
R32 
c3 


DD7E04 
FEcD 

2004 
CLIOOda x 
Cc? 


ES 
0S 
FOCR7CSE 


2807 


CDnooo0o x 
SOF B 
1305 
choooe xX 
20FB 


FDOCB7C7E 
2003 

77 

1205 


2006 
cy 


O10100 
ED42n6sc 
010300 
ED43DASC 
O12301 R 
Ep42ncsc 


FOCR7CES 
CLOOOO x 


21E465C 
LADESC 


465 
4&6 
447 
448 
449 
4790 
471 
472 
473 
474 
475 
476 
477 
472 
479 
430 
431 
422 
432 
434 
4e5 
424 
437 
433 
43a9 
490 
4? 1 
492 
493 
424 
495 
496 
497 
422 
492 
S00 
S01 
S02 
503 
S04 
505 
506 
507 
S08 
S09 
10 
S11 
S12 
313 
514 
Sis 
516 
317 
S13 
S19 
520 
521 
S22 


SOURCE 


GE_15 


GE_2 


GE_3 


Gk_4 


GE_S 


AUTO_R 


SH_SAVE2 
STATEMENT 


Lo AD 
OR E 

RET z 

Lu A, CIX+CHTYPE) 
cP “1° +80H 

UR NZ,GE_4 

CALL GE Me 

RET 

PUSH HL 

PUSH DE 

BIT 2, (IY+FLAGS3-Y) 

UR 2,GE_2 

CALL IN_BYT 

UR NC, GE_15 

Jk GE_2 

CALL IN_BYPF 

UR NC,GE_2 

FUP DE 

DEC DE 

POP HL 

BIT 7, (IY+FLAGS3-Y) 

UR NZ,GE_4 

LD (HL)»A 

UR GE_S 

CF (HL) 

JR Z,GE_5 

RST SH_ERR 

DEFB 15H 

INC HL 

LD AVE 

Ook D 

UR NZ,GE_1 

RET 

Lu BC, 1 

LD (UR+0_STR1),BC 
LD BC, 2 

LD (DR+N_STRL)» BC 
LU BC, NAME 

Lo (DR+N_STR1+2),BC 
SET 4, (fY+FLAGS3-Y) 
CALL T_FR_1 

LD HL, DR+HDOI_oo 

LD DE, DR+SC_00 


PAGE ? 
ASM 5.9 


sHL HOLDS THE START 


3BIT 7,FLAGS3 IS 
+BIT 2,FLAGS2 I5 


SET FOR VERIFYING 
SET WHEN USING THE NE1 


700 NOTHING IF NULL PROGRAM 
315 IT A MICROURIVE 
SYES ...LI0 SEPERATELY 


sSAVE THE START 
sSAVE THE LENGTH 
sUSING THE NET? 


sFETCH A BYTE FROM THE NET 


sFETCH A BYTE FROM THE RS222 


sRETRIEVE THE LENGTH 
*DECREASE IT 
sRETRIEVE THE START [| 


+ VERIFYING? 


sJUMP IF IT IS 
sASSIGN IT IF NOT 


sDNES IT MATCH? 


| 
3 “VERIFICATION HAS FAILEL’ 


$GO ROWNG UNTIL FINISHED 
sALL DONE 


SPREPARE VARIABLES AS IF THE USER HAD 
STYFED LOAD #"N"3 13 "RUN" 
SFIRST DRIVE NUMBER NOW NAME LENGTH 


7AND ANLRESS 


3SE1 LOAD FLAG 


3GET OLD FROG PARAMETERS 
SAND MOVE THEM UP AS IN L_fEST 


o10900 
EDBO 


FOCBOAFE 


cpooeo =X 
cz0000 xX 


S22 
524 
S25 
S246 
527 
S23 
329 
S30 
S3t 
S32 
2233 
S234 
535 
326 
537 


NAME 


SH-SAVE2 
OBJ COVE M STMT SOURCE STATEMENT 


LD 
LDIR 


fo POON spect te lame 


BC,? 


7, (1Y+NSPFC-Y ) 


GET_HD 
H_SURT 


“RY 
“tle 


“N’ 


FAGE 10 
ASM 5.7 


SRUN CLEARED THIS IN ANTICIPATION OF 
$LINE NUMBER. MUST SET IT fO PREVENT 
sJUMP TO PROGRAM. 


3NOW RESUME AS BEFORE 


ry 
. LOC OR! CODE M STMT 


WON DUS Whe 


10 


SH..POQRT PAGE 1 
SUURCE STATEMENT ASM 5.9 


HEMEL SE EE AE HEHE EAE EAE EE HEHE SEE SE EEE AE AE HEE AEE IE SEE RE EE AEE TEE AE SE FETE EEE EEE TEE EE SEE TE EE IEEE EEE 
RS222 MODULE 


FE TEE HEHEHE HEHE HEHE HEHEHE SE SE HE SE HE SE SE SE HE HE SE HEHE HE SE SE SE SEH HE SEE SE SE EE SE SE SESE SESE HEE HE ETE SE HE HEHE SE SEE HE HE HE SE SE SE EB dE SEE 


we we ve we ve ve ve 


#INCLUUE SH_S_V.S 

: 

PU UEEHE IEE EEHLIEHEEEHHHEEEEEHUHEHEFHEHHEEEEHEEEEHIHHHEEERREEEEHHEEE 
SHADOW ROM SYSTEM VARIABLES 

FETE AEE ETE AE AE SE HSE AE HE TEE HE AEE EEE TEE IEEE HEH REGIE REESE TEACHER TEE ERE SE TEE IE EI HEE EE EE EE 


INCL NEWVAR. & 


ve & ve we ve we we 


3 HEHE SESE HE He HE HE SE EE HE SE SE HE EE EE EE EE EE SEE HE EE EE SE HSE IE SE HE SESE IE EE EE EE 
+H NEWVAR. 3 # 
iH 29/4/82 * 
3 HERE SESE REE HEE HE AE AE HE HE HE HE TE HEAEHEHE HE HEHE EE HEHE SESE THEE EEE TE TE ETE HE EEE EE HEE 
5 

SESE TE TCE AEE IESE EE EE EEE HE TET SE SESE ESE ESE EIR SE AE SEE SEE EEE SE EE HE SE GER GE HEHE HEHE 
+H SYSTEM EQUAIES b= a 


3 FRASER SE IESE HEHEHE SE FE EAE ESE HEE EEE EEE IEEE HE HE RHEE EERE EEE HEE EE 


( 


PORTC Eau OEFH SUDRIVE CONTROL/STATUS FORT 

FAR TD Eu OE7H SDATA FORT ADDRESS 

SELD Eau OFEH SDRIVE SELECT DATA 

SELIT Eau OF TH SDRIVE SELECT CLOCK 

WRITE Eau OF BH SWRITE CURRENT ON 

ERASE EU OF 7H SERASE CURRENT ON 

cts Eau O&EFH sCLEAR TO SEN OUTPUT 

? 

SYNC Eau 2 SSYNC BYTE DETECTED SIGNAL 

PROTECT Eau 1 SWRITE PROTECT SIGNAL 

GAP Eau 4 3GAP SIGNAL 

BUSY EQu 10H 

FLEN Env 12 SLENGTH OF FREAMBLE 

HOLLEN EQU PLEN+14+1 . $LENGTH UF HEADER BLOCK FLU FPREANBLE 

D_LEN Eu HD_LEN+512+1 SLENGTH OF LATA BLOCK 

HO_MAX EEUU 255 ; SNUMBER CF BLOCKS ON TAFE 

TRYS Eau 5 SNUMREK OF TRIFS ROUND TAFE 
SEEFORE GIVING UP 

GAFT3 EQu 340 STHE DEC BC WELAY BETWEEN READING 


SA HEADER, CURKECTING IT, TESTING 
sIF FREE ANL WRITING A DATA BLOCK 
GAPTI Eau GAPT2+74 STHE DEC BC DELAY BETWEEN WRITING 
3A HEALER BLOCK ANLI WRITING A 
SDATA BLUCK 
GAPT2 EQu 821 $THE DEC BC DELAY BETWEEN ENU OF 
3A DATA BLOCK AND BEGINNING OF 
SHEAVER BLOCK 
STHE GEC BC DELAY IS 26 T-SIATES 


t 


SH_FORT PAGE 2 


>. LOC. OBJ COVE M STMT SOURCE STATEMENT ASM 3.9 
Ss? : YOR 7.4US 
‘ 60 $THE ABOVE TIMINGS ARE HOPEFULLY ‘ 
. 61 $FOK A HEADER OF LENGTH 840LIS, FOLLOWED BY A GAP OF 3.04MS, FOLLOWED 
62° $8Y THE DATA BLOCK LENGTH 21.3M5,FULLOWED BY A GAF OF 45, 
6304 : 
64 ERROR Eau S SERROR HANULING IN ROM 
65 INSERT EQU 1435'3H SMAKE ‘SFACE IN RUM 
66 DELREC EQU 19ESH SDELETE SPACE IN ROM 
67 CHANS Eau 23631 SADDRESS OF CHANNEL DATA 


62 STEEND ER 
69 STEBOT Eau 
70 MEM Eau 
7i 4 =SELECT EQU 
72 SENDTV EOU 
73  OUTCH EQu 
74 INCH EQu 


SADDRESS OF START OF SFARE SPACE 


SCHANNEL SELECT SUB. IN OLD ROM 

3TV OW FUT PROCEDURE 

sCHANNEL GUTPUT ROUTINE 
“SCHANNEL INFUT ROUTINE 


75 3 
7&3 
7 SHADOW ROM SYSTEM VARIABLES 
73 3 
79 3 SESE SE HEHE SE IE HOHE HEHE AE HEHE IEE EE HE BE TE AE EE SE EE HEE SEE HEE SESE HEHE HEE ESE DE HEHE ETE SE HE HE SE JE SEE SESE EE EE SE ESE SE HE HE 
eo 3 
: St 3 \ 
a2 XS 
@3 $ SYSTEM RESTARTS 
24 Loy 
85 R_BASE: EGIL! OOOOH bog ( * 
84 ENTRY! EGU OOUSH : 4 | ) 
97 CALEAS: EAL OO10H “4 ‘ 
6s SYNrt  EQU OO18H 
89 SHLEKR: EAL O0O2Z0H 
90 ROMERR: EGU OOZe 


?1 INSER. Em oo30H 
92 MASKS EQU QOSEH 


93 
94 
9S 3 BASE ROM ADDRESSES 
PA 


?7 LASTL.K EMU SCosH 
98 LEFADD EGU SCOBH 
v2 STRMS EQu SC1OH 
100 OY Eau Stc3AH 
101) ERRLNR EQU Sc3AH 
102 FLAGS E@uU SC3HH 
103. TV_FLAG EAU SC3CH 
104 ERR_SP EGU SC3DH 
105 NEWPPC EQU SC42H 
106 NSPPe EWU SC44H 
107) PRPC EAU SC45H 
108 SUBFPC E@QU SC47H 
109 BORDCR EQU SC43H 
1190 VARS EQu SC4BH 
111 CHANS. EQ SC4FH 
112 CURCHL EQU SCSIH 
113 PROG EQU SCS3H 
114 DOATADD EWU SCS7H 
115 ELLINE EQU SCS9H 
116 CHADD EQU SCSDH 


Loc OBJ CORE M STNT 


h 


117 
118 
119 
120 
121 


123 


X.PIR 
FLAGS? 
FLAX 
UDG 
SCRet 
ATTR_P 
ATTR_T 
PFLAG 
DR 


SH_PORT PA 
SOURCE STATEMENT ‘ A 


Eau 
Eq 


EAU & 
Eau S 
Emu & 


Eau 
Equ 
EQu 
EQU 


SCBRGH 


FCRIII GGG EGG EIR EES IRIEIRE Hate 


FIXED MICROURIVE DATA + 


FAITE SESE A AEH E SEE HEH HAE EE EEE HHI EEG ESERIES HE EE aap 


THE SPACE IS CREATED WHEN THE SHALICW ROM 13 FIRST CALLED 


; 

5 

$THIS FIXED DATA IS FOUND IMMELIATELY AFTER THE SYSTEM VARIABLES 
; 

F 


LAGS3S EAU DR $2237234 SBIT O ... RECURSION 
HIT 1 2... AUTO RN 
BIT 2... Hook 
SBLT 2 1... NET/RS232 
7;BIT 4... LOAL 
SBIT S 1... SAVE 
SBIT 6 1... MERGE 
SEIT 7 ... VERIFY 
XR EQuU 7 S INDICATES VERIFY NOT Loan 
VECTOR EGU O1H §23735/6 | $NEW COMMAND VECTOR POINT 
SBRT EQU VECTOR+0ZH  $22727 FSTART OF CALBAS SUBROUTINE 
HL EQU SERT+01H 
ZILCH EQU SBRT+04H 
BAUL EQuU SBRT+0AH 323747 SRATE FOR RSzva2 
NTSTAT EWU BAUDFOZH 322749 S°UWN STATION NUMBER 
IOBORD EQU NTSTAT+O1H 323750 SBORDER COLOUR FOR L/a 
SER-FL EQU TOBURD+O1H  s3751 SSERIAL INPUT FLAG & CHARACTER 
SEND OF DEFAULT SYS. VARS. 
SSTAKT OF VARIABLES 
SECTUR EWU SER_FL+0¢H+0R S23753 SMICRODRIVE SEC rar 
CHADD. EAU SECTOR+O02H-DR I 23755 STEMPORARY STORK FOR CH_ALID 
NIRESP EQU CHADD +024 $223 /57 SSTORE FUR RESPONSE Cope 
ci 
3THE EIGHT LOCATIONS FOR A NEI HEADER 
NIDEST EQU NTRESE+01H 72373 SDESTIHATION STATIUN NUMBER 
NTSRCE EQU NTDES1+01H 323759 SSOURCE STATION NUMBER 
NTNUMB EWU NTSROE+01H 323/760 S BLOCK NUMBER 
NTVYPE EQU NTNUMB+02H 322742 3° DATA” (0) OR “CLOSk* (1) TYFE CODE 
NTLEN EQU NTTYFE+O1H $2376:2 SDATA BLOCK LENGTH 
NToCsS EQU NTLEN+O1H 323744 SDATA CHECKSUM 
NTHCS Eul NTOCS+01H 723765 SHEADER CHECKSUM 
3THE SIXTEEN LOCATIONS Fur FARAMETER COLLECTION 
DSTRi = EGU) NTHCS+01H TZI7ES sTWO BYTE NUMBER 
S.STH1 EQU DISTRI+02H $237628 SSTREAM NUMBER 


Le PONI ah clas a amet 


SH-FURT FAGE 4 
? 


-. Loe OBJ CODE M STMT SQURCE STATEMENT ASM &. 
17S LASTRI BW DOSTRi+ocH Pause? tLEITER . 
176 N-STRI EGU DUSTRI+04H 322770 SNAME DETAILS (LENGTH & START) 
177) DLSTR2 EGU NLSTRI4O0SH 525774 3 ## SECOND SET #+# 
172 S_STRE EQU DUSTRI+OAH 422774 
177 LSTR2 EQU DUSTRItOBH 323777 
150 NUSTR2 EQU DUSTRI+OCH $22772 
1s1 
12 
183 SC_00 EQU DISTRI+08H $22774 sSECONL SET FOR SCANN 
184 SC_OB EQU DUSTRI+OPH 323775 
185 sct_op EQU DLUSTRI+OHH $23777 
184 SC_OF EQU DUSTRI4+0DH 322/772 
137 
183 
isy “SAVE*’, “LOAD? ETc. 


170) =HDLOO EQu 
191 HD_OH# Eau HD_OO+01LH 
1972 HDLoc Evu HOLOE+OLH 
193 HD_OD EQuU HO_LOC+01H 
174 HDOLOE Euu HO_LOD+O1LH 
175 HD_OF EQUW HDLWOE+O1H 
194 HOL10 EQu HO_OF+01H 
177 ~=Hbuil EQU HU_10+01H 
172 «~HOL12 E@U HD_11+01H 


$TYPE CODE 
SLENGTH OF BLOCK 


SSTART OF BLOCK 
SPRUGRAM LENGTH 
$L 


INE NUMBER 


199 

200 COPIES EQU HO12+1 322791 

201 

202 

203 ROMADD EQU HD_10+01H = 323789 SPASSING ADDRESS FOR HUOKS 
204 

205 DRLEN EQU COPIES+01H 

206 N-LEN  EQU O114H SLENGTH UF A NET BUFFER 

207 

202 

207 $ RS232 FORT DETAILS 

210 

211 RS232 EO OF7H $SERIAL DATA PORT 

212 KBLPT  EQU OFEH SKEYBOARD PORT 

213 STATUS EQU OEFH $SERIAL STATUS PORT 

214 OTR EGU OSH sMASK FOR OTR OUTPUT 

215 

216 $ NET PORT DETAILS 

217 SERIAL EQU OF/H ;SERIAL CATA FORT 

218 WAIT EQU OEFH sWAIT FORT 

219 

220 3 : 

221 3 

222 F HERE TE SEE HEHE SESE IE HE SE EE HE HE TE SE HEHE EEE HEE SEE HE HEE EE EE EE HEE ESE EEE 

223 3% MACROS tt 

224 > TERETE TE HE FE HE TE SE HE TE SE HE HE HE HE HE HE HE HEE SEE SESE HE HE HEH ESE SEE EE EE FE EE EE SE 

225 3 

224 RST MACRO = #ALIDR $THIS MACRO WILL BE USED TO FLAG 
rd RST #ALILIR #CALLS TO THE ROM WHEN fHIS S/WARE 
221 ENDM ‘ $18 CONVERTED TO SHADOW ROM FORM. 
227 3 

230 ASSERT MACRO  #COND 

231 COND .NOT. (#COND) 


232 ; HEHEHE HERROR IN ASSERTION #CONL 
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" Loc ~ OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
2232 ENDC 
224 ENDM 
: 235 

2324 OLOUCAL MACRO #38 
237 RST CALBAS 
223 DEFW #0 
239 ENDM 

’ 240 3 
241 OLDJP MACRO #LEST 
242 Jp HOST 
24g ENUM 
2443 
245 3 
ZAG fF 
247 3 HEA AE HE TE HE SE HE HE EH SEE HE SE TE EE SHE FE HE HEE SE HE SE IE TE SE HE TE TE ETE HE HE TE ETE EE 
24 5H DATA + 
24g 3 MEE HEHE FE HE HE HE HE HE HE HE SE HE HE SE SE TE EE HE EE St J dE Ed dt dg a tt dH 
ot 
252 5 FEST IE HE HEHE HE dE HE He HE HE HE tt at Hat I HANNEL #44 4 Ht He EH SE HE EE HE HE 
253 3 
254 $3 
205 $THE FOLLOWING DATA IS CREATE’D FOR EVERY OFEN MICROURIVE FILE 
254 $AND SOMETIMES FOR A WORKSPACE IN MICRUORIVE UPERATIONS 
257 ; 
Zao 3 
259 $ FOINTS TO o008 


OLD WRCH ADDRESS 
260 SULT) ROCH ADDRESS FOINTS TO 0008 

261 CHTYPE Eau 4 sCHANNEL TYFE 
2642 $NEW WRCH AUDRESS 

262 $NEW RUCH ADDRESS 


264 CHLEN Eau CHTYFE+S SLENGTH OF THIS CHANNEL DATA 

265 CHBYTE Eu CHLEN+2 SCURRKENT BYTE FOINTER 
266 CHREC EQu CHEYTE+2 SCURRENT RECORD 

2647 CHNAME EAU CHREC+1 310 BYTE FILE NAME 

268 CHFLAG EQu CHNAME+10 SCHANNEL FLAGS 

269 3 

270 WRFLG Eau oO sWRITE FLAG BI 

271 

272 CHDRIV EAU CHFLAG+1 SORIVE NUMBER 0-7 

272 CHMAF EQU CHORIV+1 SADDRESS CF DRIVE MAP FOR THIS FILE 
274 = ¢ 

275 CHHDR Eau CHMAF+2 3START OF HEALER 

276 HOFLAG EWU CHHUR+FLEN _ sFLAG BYItE AT START GF HEADER (BLro=1) 
277 HDNUMB EG HDFLAG+1 SNUMBER OF CURRENT HEAUER/SECTOR 
278 4 SFOLLOWED BY TWO EMPVY BYTES 

27? HUNAME ER HONUMB+3 3 TAFE NAME ; 

220 HOCHK EQu HONAME+10 SHEADER CHECKSUM 

23 5 

282 s$TOTAL LENGTH OF THE ABOVE PLEN + 15 

233 3 ; 

284 CHDES EAU HUCHK+1 SSTART OF DESCRIPTOR 

235 RECFLG EQU CHUES+PLEN sFLAG BYTE IN DESCRIPTUR (BITO=0) 
286 sBIT 1 = EUF 

237 sBIT 2 = SLVM ° 

298 RECNUM EQU RECFLG+1 SNUMBER OF THIS RECORD 

2397 RECLEN EQU RECNUM+1 SLENGIH OF THIS RECORD 

270 RECNAM EQU RECLEN+2 -3NAME OF THIS RECORD 


oe, ee 


LOC 


OOo 
o0004 


OOO7 
O0O8 
oon? 
QO0A 
OOOB 
oo00c 
oooD 
OOOF 


OOL1 


ED4BD45c¢ 
2124600 R 


SE 
pa 

23 
betta) 


ae} 


as 


EB 


— 7t 


FE4B 
300A 


7 


291 
292 
293 
204 
295 
276 
297 
298 
299 
200 
301 
302 
303 
304 
305 
306 
307 
208 
209 
310 
214 
312 
313 
314 


Gi Wh to bo bp be bo BS hb 


PUNK SCVONDUDW 


an 


26) G9 fd tO) 4) G9 Ld OO Oo Od Oo te oY 


SH_PORT 
OB. COUE M STMT SOURCE STATEMENT 
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ASM 5.¢ 


LESCHK EGU RECNAM+10 sUESCRIPTOR CHECKSUM 
CHDATA ERU DESCHE+1 SSTART OF DATA BLOCK 
OCHK Ew CHDAAtS12 SDATA CHECKSUM 
CHANLN  E@tt UIGHE + 1 SLENGTH OF ALL THIS 


SACRE IEEE SE AEE HEE SE IESE AE SEEM ALP HEE IESE EEE EEE EEE EEE HE IESE IE HEE 

s 

$A MICRODRIVE MAP IS A BIT MAP UF ALL. SECTORS ON A MICRODRIVE 
sTHE BITS ARE COUNTED FRUM O TC) HD_UMAX-1 THE LENGTH 

sOF THE MAP IS THEREFORE GIVEN EY:— 


MAPLN EAL a2 
: 
3THE MAP IS CREATE“D FOR EVERY DRIVE CONTAINING AN OPEN FILE 
H 
#LIST ON 
GLOBAL ACT_LET 
GLOBAL ACT_UT 
GLOBAL IN_T 
GLOBAL IN_BYP 
GLOBAL CUIT_T 
GLOBAL GUT_T2 
GLOBAL STR_OF 
GLOBAL BLCOL 
GLOBAL UFENT ; 
EXTERNAL ENDI 9S -o1~TAX 
EXTERNAL CHANGE SH VET 
EX rERNAL RELNAM UHGOFT 
3 THERE ARE FOUR ROUTINES IN THIS MODULE 
$1. ACV_FT - FORMAT "T",BAUL 
$2. ACT_LOT ~ OPEN #7, "T", BAUD 
33. IN LT - INPUT VIA RS_232 
34. OUT_T - QUIFUT VIA RS 232 
ACT_FT $FETCHES THE VALUE FROM “LD-STR1I* 
SAND CUMPUTES THE VALUE FOR THE SYS. 
LD BC, (OR+D_STR1) 3GET PARAMETER 
LD HL, T_BAUD 7BASE ADORESS UF TABLE 
FT_1 LD E, (HL) 3FETCH LOW BYTE OF “RATE- 
ING HL 
LO D, CHL) $FETCH HIGH BYTE OF “RATE” 
INC HL 
EX DE,HL $SWITCH POINTER & VALUE 
LD AH sTEST HIGH BYTE 
' CP O4BH SAGAINST “LAST ENTRY’ 
JR NC,»FT_2 3JUMP AT ENLI 
AND A 


VAR. 


“RaAUDE 


SH_FORT FAGE 7 
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Lec OB! CUDE M STMT SOURCE STATEMENT ASM &. 
oo12? ED42 347 SBC HL, BC $TEST VALUE (CARRY RESET) 
0014 3005 350 JR NC» FT_2 ;JUNP IF VALUE IS GooD 
Oo1G ER : chat | EX DE.HL SSWITCH BACK 
OO17 23 B52 INC HL 
oni 353 INC HL ISTEP FAST DATA BYTES 
OO1? 254 JR ETL SRCUND AGAIN 
a55 

OO1B ER 356 FT_2 EX DE.HL © sPOINTER BACK TO HL 

oo1c SE 357 LD E, (HL) SKETCH LOW “BAUD 

oo1n 623 253 INC HL 

OOLE SS 35? LO DO, (HL) TFETCH HIGH “BALL 

OOLF  ERsscesc 260 LD (OR+BAUD), DE SSTORE IT 
B41 

oo2z3 cs0000  X 242 JP ENDL RUN IS FINISHED 
263 

0024 2200 3264 T_BAUD DEFW O032H SRATE SO 

ooze S200 345 DEFW OARZH 

CO2zA LEGO B44 _ DEFW OO4EH SRATE 110 

ooze §6—ChO4 347 DEFW O4C5H 

OOZE BOL 363 DEFW O12CH SRATE 200 

oos0  BEOL 249 DEFW OLEH 

e082 S202 370 DEFW O252H TRATE 400 

0024 TEOO 371 DEFW OODEH 

0024 BOO4 372 DEFW O4B0H SRATE 1200 

oOBe 4EDO 372 DEFW OOGEH 

CO2Q 4007 374 DEFW OF60H SRATE 2400 

o0zC 3400 3/5 DEFW OOr26H 

OOSE CO12 3746 DEFW 12COH SRATE 4300 

coq  §=1A00 377 DEFW OO1AH 

0042 S025 378 DEFW 25S0H SRATE 2400 

0044  oacod 279 DEFW QOOCH 

0044 oO4B 3e0 DEFW 4BO0H SRATE 17200 


0042 OS00 DErW OOO3H 


1 fo oe fo 


SOPENT CREATES AN RS232 CHANNEL. 


1 
2 
3 
234 
285 $sTHE TYPE, B OR T [3 DEFINED BY L_STRI 
Beas 
387 
324 OPFENT 
004A FATSSC 239 LD HL, (PRG) 
oo4nD = 2B 20 Dec HL 
CO4E = O10RO0 Bel LO BC, TLTABL 
e081 C5 B22 PUSH Br: 
oos2 D7 293 RST CALBAS = 
oos3 S514 224 DEFW Ce SY SINSERT CHANNEL LATA FOR A RS_232 STREAM 
ooss C1 275 FOr c 
0054 DS 274 PUSH DE 
oos7 choe0gd =X = 27 CALL RELNAM sRELOCATE FILENAMES FOR MOVE. "T" TO "M" 
cosa Dt B28 PoP ie 
RP? 
COSH 21A500 R 400 LO HL, T_TAE+T_TABL~1 
COSE = O10B00 401 LD 8C,T_TABL 
0061  EDBS 402 _ LODR $MOVE THE DATA 
0062 12 402 INC DE e 
404 
0064 = 3ADP5C 405 LU A, (UR+L_STRI)SFEICH THE LETTER 


OO47 FE42 404 CP 42H $15 IT “H°? 


tac 
0069 


006A 


OOLE 


OOSE 
OO6F 
0072 
00723 
0074 
Oo75 
aO74’ 
OO7% 
Q07A 
Q07B 
007C 
007D 


QOO7E 


OO81 
o0n4 
O03S 
feletarcy 
OO87 
ODED 
OOZA 
OoL ft 
oo7Od 
ooF1 
OOvs 
oo?4 
ONeS 
0076 
OOP? 
o0F3 


OO?R 
oosD 
QO9F 
OOAD 
OOA2Z 
GOA4 


1LAca0 
73 


CD4AG0 


ZA4FSC 


21165C 
FALSSC 
o7 

ar 
0400 
oF 

72 


i 
23 


72 
C2320000 


(ar=ter@) 
O300 
54 

7301 
ASEG0 
OBOO 


R 


R 


407 


Ob. CODE M STMT SOURCE 


ACT_OT 


STR_OF 


TTAB 


T.TABL 


SH_FORT : O™E 86 
STATEMENT 3M 5.9 
RET NZ . 
PUSH DE ;  SFOR “B’ CHANGE “OUT_T* To “OUT_T2- 


3°INLTY TO “INLT2~¢ 


LD HL, OO0SH sFIFTH ALY SIXTH BYTES 


AUD HL, DE 

LD DE,OUT_T2 

LO (HL)E LOW BYTE 

INC HL : 

LD (HL) Dt SHIGH BYTE 

ING HL 

LO HE, IN_-T2 

Lo CHLOE 

INC HL 

LD (HL)»D 

POP DE ¢NOW CONTINUE INIO SIfR_OF 
RET . : 


a me Sse ee a es we ne NP tS He tne ys Se Aen th Smee Se Ga Sem Sh net Ss eet ete eer ee ese sts sae sens 


SASSUCIATES A GIVEN STREAM (IN S_STR1) 
CALL UPENT 
a sENTER THE STREAM OFFSET 
SHE POINTS TO THE FIRST LOCATION 
LD HL»(CHANS_) $COMPUTE THE “OFFSET’ AS REQUIRED 
HED HL 
EX DE,HL 
AND A 
SBL HL, UE 
EX DE,HL , 
LID HL, STRMS+4 3FIND THE “CURRENT’ S?REAM BYTES 
LD A, (OR+SSTR1) 
RLCA 
LO CLA 
LD B,00H 
ADO HL, BC 
LO (HL).E SENTER THE “OFFSET¢ 
INC HL 
LO CHL) SL 
JF ENDL ; sEXIT NOW - THE STREAM IS NOW OPEN 


, 


3CHANNEL DATA FUR RS.232 
DEFW OO0SH ‘ 

DEFW OO0SH ; ea 9 

DerB S4H an 
DEFW OUTLT 

DEFW INT 

DEFW TTABL 


EQU $-T_TAB 


SH_PORT ‘ PAGE 


9 
Loar OB! COLE M STMT SOURCE STATEMENT ASM 5.9 
465 te 
OAS 21B200 R 464 INT Lu HL, IN_BYQ $7 BIT INPUT ROUTINE 
QOA? C3saqgoo’ xX 447 JP CHANGE 
462 
OOA Z1B300 R 4427 INLT2 LU HL, IN_BYF SACTUAL INPUT FROM PORT ROUTINE 
OOAF C0000 xX 470 JP CHANGE SUMP FO IT FOR BUTH INPUT & INKEY4 
471 
472 : 
t , ATS 3 ence anes ta ca cst ss Sai ssa nana a ete eas ese cade ae as a eh a a ees tN ot Ee 
: ; 474 = : 
OOB2 CLIBSO00 R 475 IN-BYG CALL IN HYP sJUST THE SAME BUT 
OORS CREF 474 ——— RES 7 SFURCES ASCII 
OOK 7 aac 477 RET 
472 
47? 
450 
481 IN HYP SBYTE IN FROM PORT 
4a2 
433 
OOS 21l75C 434 LO HL,» SER_FL+DR SAUDRESS THE FLAG 
OOFR TE 4s LO A, CHL) SFETCH THE FLAG 
QOEM, A7 4G AND A sTEST 1T 
OORD 2806 | AS? JR Z,TINUBYO 3JUMP TF NO SAVED CHARALTER 
4328 
OOBF 3400 439 LO (HL),0O0H SBUT CLEAR FLAG IF THERE IS ONE 
OO! 23 : 470 ING HL 
OOr2 7E : 471 LD A» (HL) SFETCH CHARACTER IN SECOND BYTE QF SERK_FL 
OO? 37 A?Z SCF 
vorn4 Le 493 RE’ SEX1T WITH THE CHARACTER 
. Aang 
47% IN_BYO ; 
oOors SE7F 4DS LD A, 7FH sMUS1T CHECK THE BREAK KEY SOMEWHERE 
OOC7 DEFE 477 IN A» (KBLFT) 
oOony OF 4a7re RRA 
OOCA S805 4vp JR C, INBYOS 
, S00 
oon FIV340014 SOL LD CIY+ERRIUNR-Y)» 14H 
oo0tId EF S02 RST ROMERR 
. $03 INBYOS 
OOnL F3 S04 DI 
oon BACSESC Sos Lit A, (LIR+TOBORD) 
OOns DSFE SOG Our (OFEH),A 
507 
OOM? EDSeC35c 508 Lo DE, (DR+BAUD) 
OongR 212003 Soy LO HL,800 $10MS TIMEOUT 
OODE 42 510 LD B,D 7 
OoOnF 44 Sit Lo C,E 
OOkO CB323 Sia SRL 13) 
QOE2 © CBI 513 RR Cc $1/2 BIT INtERVAL IN BC 
514 
OOE4 SEFE S15 Lo A, SELD sASSER!T CTS 
QOES LSEF barb ay OUT (STATUS)A 
517 : 
519 INBY1 . 
QOES DBF7 S19 IN A, (SERIAL) 
QOEA Q7 520 RLCA 
OOEB B00F S21 JR NC, INEY1S 
; 522 : 
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toc OB! CODE M STMT SQURCE STATEMENT ASM 5.9 
OOED UBF7 523 IN A, (SERIAL) 1WAS IT A FALSE START BIT 
QOEF. 07 524 RLCA 
OOFO 300Qq ° 525 JK NC, INBY1LS 
S26 
Ook 2 DF 7 - S27 IN A, (SERIAL) 
OOF 4 O7 522 RLCA 
OOFL 3005 529? JR Nc, INBY15 
530 
OOF? LBF7 S31 IN A, (SERIAL) 
QOF? 07 532 RLCA 
OOFA = 2800: 523 JK C, INBY2 
524 INBY1S SKEEP LOOKING 
525 
OOFC 2B ech NEC HL. 
OOFD = 7¢ 537 Lu A,H 
OOFE = BS 522 aR L 
QOFF 20E7 529 UR NZ, INBYL 
540 
O101 FS S41 PUSH | AF SRETURN NC,Z ON TIMECHT 
O102 EEE 542 Lo A, CTS. AND. SELL 
O104 USER 543 oun (STATUS) A 
O106 181F 544 UR. INRY45 
545 INBY2 
o108 40a 544 Lo Hoek 
O107 49 547 LL Lc 
C108 O20 542 Lo » StOH 
o10C 2B S49 LEC HL COMPENSATE FOR FALSE START BIT DETECTION 
o10n 2B S50 DEC HL 
O10E 2p SS DEC HL 
S52 
OLOF 12 S43 INLBY3 app HL.» LIE: 
0110 oO 554 NoP SWASTE TIME 
S55 
Ol11 2B S54 INU@VY4 DEC HL 
OWS 7c , 557 LD AH 
O113 BS ' S58 OR L 
0114 voOFEH 559 JK NZ, IN BY4 sEXHAUIST THE TIMING COLINTER 
560 
O116 C400 Set ADD A,OOH tWASTE 7 T-STATES 
O118 DEEZ 542 IN A, (SERIAL) sREAD THE FORT 
OLLA 07 543 RLCA 3MOVE KIT 7 TO THE CARRY 
O11B CHh12 564 RR B SCULLECT THE BRITS IN B 
OL1L) = 30FO 545 JR NC» IN_RY2 sROUNL FOR @ BITS - IGNORES THE -SIOP BITS- 
566 
O11F ZEEE 567 Lo A,CTS. ANU. SELL 
0121 9 DSEF S68 OUT (STATUS),A sCLEAR CTS (NO LONGER -REALY-) 
S69 
o123 793 570 en A,B 3SAVE THE CHARACTER AND FLAG 
124 2F 571 CPL 
O125 237 S72 SCF 
0126 FS 573 PUSH AF 
574 
575 SNOW SEE 1F THERE IS A “SECOND CHARACIER 
574 INBY4S . 
O127, 19 577 ADD HL, DE SFETCH THE “LIELAY~ 
0122 2R 57& IN LaYS DEC HL 
0129 7D 579? LD AL 


O12A B4 S80 OR H 
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. Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
0128 2OFR S81 JR NZ, INUBYS sWAIT THE DELAY TIM 
582 seed cagieoanienase's 
oO12U 19 : 533 AUD HL,DE a eros ae 
OLZE 19—C 534 ano —s HLL DE (4 THREE BITS (GERIATRIC IBM!) +) 
O12F 19 S25 ADD = Hk» DE eee aes 
O1sd al 3] S86 INUBY& DEC HL See 
Ost 70 587 LU AJL 
O122 B4 Seg OR H 7: 
0133 2339 Seo JR Z.IN_BY? SUSE THE DELAY TIME AS A TIME-OUT 
S90 é 
O13s LIBF7 So. IN Ay (SERIAL) s;LOOK FOR THE “START? 
O17 o7 592 RLCA . Sy 
OLse OF 4 S93 JR NC, INURYS SROUND AGAIN IF NUT FOUND 
S94 5 ; 
OL3A DHE 7 59S IN A, (SERIAL) sFALSE START BIT 7 
O13c Q7 SIS RLCA 
O13 SOF 1 597 JR N@, INLBYS6 
Yes 
OLSrF DHF 7 So? IN A, (SERIAL) 
O41 07 600 RLCA 
O142 BOER 401 JR Nt, IN_BYS 
602 
O144 DEF? 603 IN A, (SERIAL) 
0144 Q7 604 RLCA 
O147 ZOE7 405 JR NC, INL BY4 
£06 
0149 42 407 LU Hw 
O14A &H 408 LO LE 
O14B CHSC 409 SRL H 
.o14p CBiu 610 RRL 
O1L4F O430 G11 LD B,O80H sSET THE MARKER BIT 
OLS. ZH 612 LEC HL 
O12 2B 413 DEI HL SCOUMPENSATE FOR FALSE START BIT DETECTION 
OLe3 2B 614 DEC HL 
615 
16 SNOW COLLECT THE CHARACTER (AS ABOVE) 
O1s4 19 617 INUBY7 ADD HL, DE 
OLS! oo G13 NOP 
OLE4 ZEB 419 INUBY@ EC HL 
OLS7 7c 420 LD AH 
O41 Eas BS 621 OR -L 
OLao ZOFB G22 JR NZ, INUBYS 
OLB C400 623 ADD A,QOH 
OLSu DEF 7 624 IN A; (SERIAL) 
OLSF O7 425 RLCA 
O1460 CHIS 626 : RR B P 
O1E2 SOFO £27 JR NC, IN_BY7 
4283 : 
OLE4- 21075C G2? LD HL,SER_FL+DR 3SET THE FLAG 
OL467 S401 630 LD (HL),O1H 
. O69 23 4631 INC HL 
OL144 72 632 LD A,B 
O1GB ZF 4633 CPL ‘ SCOMPLEMENT THE NEW CHARACTER 
OL4C 77 &34 “LD (HL).A SAND SAVE IT 
435 ‘ 
626 
QO14U CLEOOL R 627 IN-BY? CALL BLCOL SRESE? URIGINAL HORDER COLOUR 
o170 Fi 628 ‘ FOP AF SREVRIEVE HE CHARACTER 


AN ed nl gece NG gues ea 


Loc }=60OR! CODE M STMT SOURCE 


0171 
0172 


O173 
O175 


O177 
OL72 
OL7A 
O17 


OL7L 
OL/F 
O1eai 


OLS3 
O1SS 
O187 
O1SA 
o1sc 
OLSE 
a1ed 


O19. 
O19:2 
O194 
O1?S 
O1FS 


OL9A 
oO198c 
O1%E 
OLSE 
O1AL 


O1A4 
OLAS 


OLAG 


FR 
co 


FEAS 
3206 


DGAS 
LI7 
1ooc 
Cc? 


FE/F 
2802 


3E3F 


FEOD 

2007 
CUPL. R 
SEOA 

12023 

FEZO 

D3 


647 
648 
442 
650 
651 
452 
452 
454 
655 
G34 
&in/ 
Gis 
é59 
460 
661 
642 
662 
464 
665 
bbb | 
647 
668 
&69 
670 
4671 
672 
473 
&74 
675 


476 


677 


678. 


679 
680 
431 
G82 
632 
634 
635 
486 
687 
632 
489 
690 
4? 1 
692 
493 
694 
675 
496 


SH_PORT PAGE 12 
STATEMENT ASM 3.9 
Er (INTERRUPT ON NOW 
RET sEXIT APPROPRIATELY 
Mea ee Se eS ee ee ee ele ean, 
QUT1 
SACTUAL WRCH ROUTINE FOR THE RS232 - DEALS WITH “SINCLAIR? COLES 
CP OASH sCUMPARE CHARACTER TO “RNUY — FIRST TOKEN 
JR C,.LOTLA sJUMP IF NOT A TOKEN aes 
SUB OASH _f. hs Oe he Ln wt RST lu [RCH 
RST CALBAS runny — pence lobin & prontt LAK O 
DEFW OC LOH : if 
RET : 
LOT_-A CR 7FH 31S IT A GRAPHIC? 
JR C,»LOT_B SJUMP IF NOT 
LD A, 2FH sSFORCE ALL GRAFHICS 10 O3FH - ~~ 
LOT_B CF ODH SCARRIAGE RETURN? 
JR NZ,LOT_C 
CALL GUT_TZ $CR 
LO A, 0AH 
IR OUT_T2 sAUTU LE 
LOT_C CP 20H sTEST AGAINST “SPACE’ 
RET C SRETURN - IGNORING THE CONTROL CHARACTERS 
OUT_T2 eo SACTUAL “BYTE” WRCH ROUTINE 
LD B,OBH 3A “START BIT“, 8 CODE BITS & 2 “STOP HIIS 
crL SCUMPLEMENT THE CONE B1lIs 
LD C,A sSAVE THE CODE BYTE IN ¢ 
LD A, (OR+IUBORD) $FETCH THE CURRENT I/O BORVER COLUUR 
OUT (OFEH).A 
Lo A,CTS 3SELECT THE RS232 OVER NET 
QUT (FURTC),A 
CPL 
QUT (RS2322),A sFUT OUT LOW LEVEL 
LO HL» CUR+BAUD) 3FETCH CURRENT RATE 
LD D>H e 
Lo Eat 
LOTL 
DEC DE : SALLOW TIME FOR THE NOISE TO BE IGNORED 
po POON etapa elimi 


» + Loc 


OLA7 
OLAg 
O1A? 


O1AB 
OLAn 
OLAF 


O1b1 


OLBS 
O1B4 
O1B7 
OLB? 
O1 BE 
OLEL 
OLBE 


OLEE 
O1cL 
OTe 
O1C4 


O1cs 
O1CG 
O1C7 
O1ce 
O1CA 
O1CE 
o1cc 


O1CE 


OLDO 
OADL 


COLL 


O1wS 
O1D7 
oO1n? 


O1DB 
o1nc 
O1LuD 
O1DE 


OLE 
O1ES 
ORS 


7A 
B3 
2Z2O0FR 


USEBOL oR 
DEF 

E08 

ZEEE 

37 


ih 
cy 


CEOQO 


ZOFB 
ik 
AF 
CER9 


10EF 


FH 

SEO1 
OEEF 
OGEE 
D3F7 
ED4L 


2AAS50 
E438 


&27 
693 
£29 
700 
7O1 
702 
703 
704 
705 
704 
707 
7Og 
709 
710 
711 
71zZ 
713 
714 
715 
7164 
717 
/1& 
719? 
720 
721 
722 
7223 
724 
725 
726 
727 
728 
729 
730 
721 
/32 
733 
734 
7235 
734 
737 
738 
739 
740 
741 
742 
742 
744 
JAS 
TAS 
747 
743 
749 
720 
751 
752 
732 
7354 


SH_PORT 
OH) COVE M STMT SQURCE STATEMENT 


LOT2 


LOT3 


LOT4 


LATS 


B_COL 


LO. 4,0 
OR E 


JR NZ.LOTI 


LD A,/FH 
IN A. (KR_LPT) 
CR OFEH 

IN A, (KB_PT) 


IN A, (STATUS) 
ANL DTR 

IR Z,LOT2 
SCF 


Ol 


ADC A,OOH 
QUT (RS232),A 
LD DH 


PAGE 13 
ASM 5.9 


sWAIT FOR BIT 
SWATY UNTIL THE FORT BECOMES FREE 
SFURM THE “START BIT” 
SINTERRUPT OFF 


CARRY SET’ SENUS “HIGH~$ 
ENO CUT BLT O 


- “RESET’ SENUS “LOW 
S 
FETCH THE TIMING LOOP VALUE (BAUL) 


s 
? 
e 
? 
. 
? 


Lo EL 
DEC DE 
LU ASL 
OR E 
JR NZ,LO14 SROWND TIMING LOOP UNTIL EXHAUSTED 
DEC OF SWASTE 6 T-STATES 
XOR A SCLEAR THE “A” REGISTER 
SRL C SRITS GO INTO CARRY (LSB FIRST) 
STRUE VALUES ARE SENT “INVERTEL” 
STHE STUP BITS ARE FORMED BY THE LAST TWO " NC*S " 
DINZ LOTS SROUND FOR ALL THE BITS 
STINE BETWEEN BITS IS — “LOOP COUNT’ + 57 T-STAIES 
EI SINTERRUPT ON BEFORE CONTINUING INTO BLCOL 
LD Arlt SLEACTIVATE THE NET 
Ln C,»FORTC 
LD BE, CTS.AND.SELD $RESELECT THE NET 
OWT (SERIAL),A 
QUT (C),B 
DEC HL SWAIT FOR THE NOISE TU GO AWAY 
LO Ast 
OR H 
AR NZ,LOTS 


LD A, (BORDUR) 
AND 38H 

RRCA 

RRCA 

RRCA 

QUT (QOFEH)»A 
RET 


EI 
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SREIURN THE ORIGINAL BORVER COLOUR 


3 OF STATUS TO BE FOUNL) “HIGH” 


SH_PORT : PAGE 14 


OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
CUEOO1 R 755 CALL. BCOL woo 
FD260014 7356 LO CIY+ERR_NR-Y)», 14 
EF 757 RST = ROMEKR ( 
758 7 
Ta9  $ 


aaa diaehneaenatentaneleehen tee teeten enalenlenslenetententaenteenteertonhentetenienaemteneetententen eta rer taniedeenieatantetaatententeantemtontentaeteetestenteatentantann _- 


EMP lay th Ml 
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4 Lac 
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‘ORJ CODE M STMT SOURCE STATEMENT 


PAGE 1— 
ASM 5.9 


SH_NET 


e 
? 
SIGE RAGE EIR RR EI RIE EEE EE GRE EEE EEE LEE EET IRIE HEHE EEE 
$ 
3 NET MODULE 


. 
7 

9 HE SE HEM HEH HE HE SESE HEE SE SE SE EE SE SESE SE SEE aE EE FEE TEE HEHEHE HSE HEHEHE HE HE HEE HE HE SEE HE HEHE E SE HE IEEE AE HEHE ESE HEE HE GE HE HEE SE aE 
io . 

? 


#INCLUDE SH_S_V.S 
? 
SEE TEETER TEI AE AE AEE SE AE HE EE ERG ESTEE IGEGESG ETE RIGA GGE IEE EE HEHE aba 


SHADOW ROM SYSTEM VARIABLES 
JAE HEI TMT HEHEHE IGE EEE AEE 
INCL NEWVAR. 
FHSAA ER ESE EAE TEESE EGE ETE TE EIS THEE ERE IEE EE IEE 
NEWVAR. S 


+ 

+ 

# 29/4/33 a 
HERE SE AEE FEE AE HERE REE REA TE AE TE HE PETE AE AEE IEE TEE PETE HE EGE EEE TE HEHEHE HE EE IE a deat 


“ae ve we we we ve xe we we we ue ve 


BOSCIA SE HE SE HEHE ESE HE SE SHE EEE EE ESE EEE IEEE EEE ESE IEE IEE EAE SEE 
3% SYSTEM EWUATES * 
5 ESE SEE SE HE SE AE HEHE EAE HEHE HERE AE TEESE EEE REESE EE HAE AEE EE HEE ESE SEE SESE SE HEE IE aE aE 


ry 
? 


2 
? 


PORTC EQU OEFH SUDRIVE CONTROL/STATUS PURT 

FORTD Eau OE 7H SLATA PORT ADDRESS 

SELL Eau OFEH SDRIVE SELECT DATA 

SELC EQu” OF OH SORIVE SELECT CLOCK 

WRITE Eau OF BH SWRITE CURRENT ON 

ERASE EQu OF 7H SERASE CURRENT (GN 

cts EQu OEFH SCLEAR TO SEND OUTFUT 

SYNC Eau 2 sSYNC BYTE DETECTED SIGNAL 

PRUTECT Ee 1 GWRITE PROTECT SIGNAL r 

GAP Eau 4 SGAF SIGNAL 

BUSY Eau 10H 

; 

FLEN Eau 12 SLENGTH OF FREAMBLE 

HOLLEN EQU FPLEN+14+1. SLENGTH UF HEADER BLOCK FLUE PREAMBLE 

D_LLEN EQU HD_LEN+S 1241 SLENGTH OF DATA BLOCK 

HDLMAX EwuU 295 2 SNUMBER OF BLOCKS UN TAFE 

TRYS EQU a SNUMBER UF TRIPS RUUNL TAFE 
SBEFORE GIVING UP 

GAPT3 EQU 340 3THE DEC BC DELAY BETWEEN READING 
3A HEAWER, CORRECTING IT, TESTING 
3I1F FREE ANU WRITING A DATA BLOCK 

GAPT1 EQU GAPT3+74 STHE f&C BC DELAY BRIWEEN WRITING 

: 3A HEADER BLOCK ANLE WHITING A 
. SATA BLOCK 

GAPT2 BQU. 831 -$THE DEC BC WELAY RETWEEN ENDL OF 
3A DATA BLOCK AND BEGINNING OF 
SHEANER BLOCK 
STHE DEC BC DELAY IS 24 T-STATES 

foo Nth, + ls Be loa 


Y e Loc 


OBJ CULE M STMT 


SH_NET PAGE 2 
SOURCE SPfATEMNENT ASM &.9 


3THE ABOVE TIMINGS ARE HUPEFULLY 
SFOR A HEADER OF LENGTH 8400S, FOLLOWEL BY A GAP OF 3.04MS, FOLLOWED 
SBY THE DATA BLOE LENGTH 21.2NS, FOLLOWED BY A GAP UF 4Ms, 


ERROR 
INSERT 
DELREC 
CHANS 
STEEND 
STEBOT 
MEM 
SELECT 
SENDI'V 
NUTCH 
INCH 


ws ve “we ve ue ve ue 


Em 
Ewlt 
Eu 
EQU 
EAU 
Eau 
Eau 
Ea 
Eu 
EAU 
EQU 


3 SERROR HANDLING IN RON 

1655H SHARE SPACE IN ROM 

'DELETE SPACE IN ROM” 

SADDRESS UF CHANNEL DATA 
SALIDRESS OF START OF SPARE SPACE 


SCHANNEL SELECT SUB. IN QLD ROM 
STV OUTPUT FPROCEQURE 

14 SCHANNEL OUTPUL ROUTINE 

1SE6H SCHANNEL INFUT ROUTINE 


SHALUW ROM SYSTEM VARLABLES 


TEESE HEHE TEE HE HE EE FE SE HE SE SE HEE FE HEHE HE JE EE ESE EE EE EE SEE HEE HE EE EE EE HE HEHE ESE HEHE ESE EE HE SE ESE IEE SEE HE HE 


5 SYSTEM RESTARTS 


R_BASE® 
ENTRY: 
CALBAS: 
SYNT: 
SH_ERR: 
ROMERR? 
_INSERW 
MASE: 


$ BASE 


LAST_K 
DEFADDO 
STRMS 
Y 
ERR_NR 
FLAGS 
TV_FLAG 
ERR_SP 
NEWFFC 
NSPPC 
FPG 
SUBPPC 
BORDCR 
VARS 
CHANS_ 
CURCHL 
PROG 
OATADD 
E_LINE 
CHADD 


oo 


Equ 


Eel 
Eu 
Eu 
Eo 
EQu 


ROM 


Emu 
Eu 
Eau 
Euwu 
Eu 
Euu 


En 
Eau 
Eau 
Ect 
Equ 
EQu 


EGU OOOOH 
QOOH 

EQU OQ10H 
OOLSH 


ADDRESSES 


SCOSH 
SCOBH 
SC 10H 
C2 AH 
SC 3AH 
SI SBH 
EAU SC3CH 
SC3DH’ 
SC42H 
SCl44H 
Sl4SH 
SC47H 
SC4SH 
SC 48H 
SIL4FH 
SCS1iH 
SCS3H 
SCS7H 
SCS9H 
Scts0H 


Loc OBJ CODE M SIMT 


ry 117 
118 
419 
120 
121 
122 
123 
124 
125 
124 
in? 
128 
129 
¢ 130 

cf 131 
132 

132 

124 

135 

1246 

137 

139 

139 

140 

144 

142 

142 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

, . 156 
157 

158 

159 

140 

161 

162 

143 

164 

145 

146 

147 

148 

169 

170 

171 

172 

173 

174 


SH_NET FAGE 3 
SUURCE STATEMENT ASM 3.9 


XPTR EQU SthFH 
FLAGS2 EQU SC4AH 
FLAGX EQU SC71H 
UNG Eww! S078H 
SCRCT EQU Sec 
ATTRAP EQU Sten 
ATTR.T EQU SCSFH 


t 


i 


PFLAG EuU SC91H 

DR EQU SCH4SH 

3 

SPEAR IEEE SE RE REAR EE AE IE EEE EE EE AEE EERE IEE EE HEGRE EE IRIE IE GEESE 
o# FIXED MICRODRIVE DATA t 
SARS HEE HE HE SEA HE SE HEE SE EE SE SE IEE SESE HEE EGE ESE AE SE IEEE HE SEE HEE HR GEE 
3 

; 


STHIS FIXED DATA IS FOUND IMMELIATELY AFTER THE SYSTEM VARIABLES 
3THE SPACE IS CREATED WHEN THE SHADOW RUM IS FIRST CALLED 
3 


FLAGSS EQU UR $2237:34 sBIT O ... RECURSION 
. SBIT 1... AUTO RUN 

SEIT 2... HOOK 

TEIT 3B 4... NEM/Re23e 

SHIT 4... LOAL 

SBIT 3S 2... SAVE 

SBIT 6 we. MERGE 

sBIT 7 2... VERIFY 
XR Eu 7 TINDICATES VERIFY NOT Loan 
VECTOR Ell o1H $23735/6 3NEW COMMAND VEC TOR POINT 
SBRI EQ VECTOR+O2H  3$237:37 $START CF CALBAS SUBROUTINE 
HL EGU SEBRT+01H 
ZILCH EQU SERT+04H ; 
BAUL EG SBRT+O0AH 323747 #RATE FOR RS232 
NISTAT EGU BAUD+OZH $23749 3°OWN* STATION NUMBER 
TOBORD EQU NTSTAT+01H 322750 ;BURDER COLOUR FOR 170 
SER.FL EUU IGHURO+O1H $2875 SSERTAL INPUT FLAG & CHARACTER 

SEND OF DEFAULT SYS. VARS. 
?START OF VARIABLES 

SECTOR EQ@QU SERLFL+02H+0R $2:3/53 sMICROORIVE SECTUR 
CHADD. EQU SECTUR+O2H-DR 323755 S TEMPORARY STOKE FOR CHAD 
NTRESP EQU CHADDIL+02H 32757 SETORE FOR RESPONSE Cone 


~ ¢ 
STHE EIGHT LOCATIONS FOR A NEI HEADER 
NTDEST ERQU NIRESP+O1H 322759 SHESTINATION STATION NUMBER 


NISKCE EQU NIDEST+01H 323755 TSOURCE STATION NUMBER 
NTNUMB EQU NTSROE+O1H 322740 7BLOCK NUMBER 
NTTYPE EQU NTNUME+02H $23742 ;°DATA” (O) OR “CLOSE” (1). TYPE COLE 
NTLEN EQU NTIVFE+O1H $23743 SUATA BLUCK LENGTH 
NTOCS EQU NTLEN+01H 323744 SATA CHECKSUM 
NTHCS EQU NTDCS+01H F2S7ES SHEADER CHECKSUM 
THE SIXTEEN LOCATIONS FOR PARAQMETER COLLECTION 
DUSTR1 = €QU NTHCS+01H $ZB7EE sIWO BYTE NUMBER 
S-STRL EGU ULSTRI+02H 323748 SSTREAM NUMBER 


ene 


fA SH.NET FAGE 4 

; >Loc OBJ CONE M STMT SOURCE STATEMENT ASM 5.9 

ry 173 L-STRi EWU DSTRI+03H $23769 ILETTER 
176 N_STRI EQU U_STRI+04H = $23770 iNAME DETAILS (LENGTH & START) 

° 177 DOSTR2 EU ODLSTRI+OSH 323/74 3 ## SECOND SET it 

178 S_STR2 EQU DLSTRI+0AH $23776 
179 L-SPR2 EGU DUSTRI+OBH 322777 
180 NuSTR2 EQU DUSTRI+OCH $23778 
1981 
192 
183 SC.00 EQU DSTR1I+0SH 123774 #SECOND SET FOK SCANN 
184 SC_OB EGU DSTRI+O09H 323775 
125 0 6sc.oD EQU DOSTRI+OBH 422777 
124 SC_OF EQU DUSTRI+0DH 323779 
197 
ise 
18° SVHE NINE LOCATLUNS FOR “SAVE, “LoAn’ ETC, 
190. HD_00.. EGU DUSTRI+10H 3.23702 STYFE CODE 
191 HD.OB EGU HD_O0+01H 323783 +LENGTH OF BLOCK 
172 HDWOC EGU HDLOB+O1H 325/784 
193 HD_OD EAL HU_OC+01H 3223785 +START OF BLOCK 
194 HO_0E EGU HO_LOU+OLH 323754 
1°95 HD.OF = EGU HULOE+O1H §$223737 $PROGRAM LENGTH 
196 HOW10 E@U! HDLOF+O1H - 323768 
197) HUL11 EQU HD.10+01H 323789 SLINE NUMBER 
199 HDU12 EWU HOUL1+01H $23790 
19? : 
200 COPIES EAU HU i2+1 323791 
20 
02 
202 ROMADD EGU HD_10+01H $23789 ;PASSING ADDRESS FOR HOOKS 
204 

‘ 205 ODR-LEN EQU COPIES+01H 
206 N-LEN E@U O114H sLENGTH OF A NET BUFFER 
207 
209 
207 $3 RBZ32 FORT DETAILS 
210 
211 RS232 EQU OF7H SSERLAL DATA PORT 
212° EBLPT EWU OFEH SKEYECARD PORT 
ela STATUS EAU OEFH SSERTAL STATUS FORT 
214 DIR E@uU OUH SMASK FOR DTR QUIPUT 
215 
214 $3 NET PORT DETAILS 
217 SERIAL EQU OF7H SSERIAL DATA FURT 
213 WAIT EQU OEFH sWAIT PORT 
219 
320 3 
221 3 
222 FEHR AE ME HEHEHE SE HE SE SESE HE FE EE HE SESE SE AE EE HE HEE HE SE SEE HEHE SE SE ESE HEHEHE EE IE HE 
223 5H MACROS + 
BZ] FEE FE ARIE SEE SE HEHE EAE EE HE SE EET IE SESE HEHE ETE EEE EE EEE EEE JE SEE SE aE EE dE a 
225 3 
226 RST MACRO #ADDR STHIS MACRO WILL BE USEL 10 FLAG 
227 ° RST fADDR sCALLS (OQ THE ROM WHEN THIS S/WARE 
229 , ENDM 31S CONVERTED TO SHADOW ROM FORM. 
229 $3 . is 
230 ASSERT MACRO #COND 
231 COND .NUT. (#COND) 
232 HHHHHHHHHHERROR IN ASSERTION #COND 


i limit ee 


wwe cee eee. 


Loc 


OBJ COE M STMT 


233 
234 
235 
236 
237 
23g 
239 


Cw OO ee 


OD 10 8 1 nO Og 
OVONA UD Wh 


hhh bbb 


SH_NET PAGE § 
SOURCE STATEMENT ASM 5.9 
ENDC 
ENDM 
§ 
OLDCAL MACRO #SUb 
RST CALBAS 
DEFW #SUIB 
ENOM 
’ 
OLDJP MACRO #DEST 
IP #LEST 
ENOM 
3 
SHAE AEAE IEE SE EEE IE IE IESE SE FEE AE EE ETE EE HEH EEE EE IEE EI EEE HEE 


3H LATA 


# 


FMA HE EHH HE EEE SE PEE IEE HE EE HEH IESE HEE REE HE HE IEE SE SEH TE 


va ve ve wc we ve we ve wa 


SOLU WRCH ADIRE 

SOLD RDCH ADDRESS 
CHTYFE Emu 4 
sNEW WRCH ADURESS 
SNEW RDCH ADDRESS 


CHLEN Eau CHTYPE+S 
CHBYTE Eu CHLEN+2 
CHREC Eau CHRYTE+2 
CHNAME = EQU CHREC+1 
CHFLAG Ew CHNAME+10 
WRELG EQU Q 
CHORIV Eu CHFLAG+1 
CHMAP EqQu CHURIVESL 
3 
CHHDR EQu CHMAP+2 
HUFLAG ENMU CHHUR+FLEN 
HUNUMH EAU HUFLAG+1 
HONAME EAU HUNUMB4+2 
HOINAME+10 


HOCHK Ent 
5 ¢ 


;TOTAL LENGTH OF THE ARLIVE PLEN 


CHLES Eau 


HOCHK +1 
RECFLG EOU , SHOES+PLEN 
RECNUM Eau RECFLG+1 
RECLEN EQu RECNUM+1 


RECNAM Eta RECLEN+2 


pees Cay fe See EP 


FETE IESE EH EAE EEE TE EE EIEECHANINE L 46 3¢ 4046 EEE He aE daa ae 


THE FOLLOWING DATA IS CREATE“D FOR EVERY OPEN MICROURIVE FILE 
AND SOMETIMES FOR A WORKSPACE IN MICRODRIVE OPERATIONS 


So FOINIS TO coos 
FOINTS TO 900g 


sCHANNEL TYPE 


7LENGIH OF THIS CHANNEL DATA 
sCURRENT BYTE FOINTER 
sSCURRKENT RECORD 
710 BYTE FILE NAME 
SCHANNEL FLAGS 


SWRITE FLAG BI1 


;URIVE NUMBER 0-7 
FADORESS UF DRIVE MAP FUR THIS FILE 


3S17ART OF HEADER 
3FLAG BYTE AT START OF HEADER (BITO=1) 
}NUMBER OF CURRENT HEADER/SECTOR 
SFOLLOWED BY TWO EMPTY BYTES 
3 TAPE NAME 
SHEADER CHECKSUM 


+ 15 


ISTART GF DESCRIFTOR 
FLAG BYTE IN DESCRIPTUR (RITO=0) 
SBIT 1 = EOF 
sRIT 2 = SLVM 
SNUMBER OF THIS RECORD 
SLENGTH UF THIS RECORD 
SNAME OF THIS RECURL 


PY, 


‘Loc 


OR! CODE M STMT SOURCE STATEMENT ASM 3.97 
291 DESCHK EQU RECNAM+10 SLESCRIFTOR CHECKSUM 
292 CHDATA EQu . LESCHK+1 SSTART OF LATA BLOCK 

r 293 DCHK Eau CHDA SAtS12 sQOATA CHECKSLIM 

2V4 5 
275 CHANLN Eau UCHK+1 LENGTH OF ALL THIS 
ZVG $ 
297 FFE AE ETE HEE EAE EE FE EE EEE MAP SE EE EEE EEE EEE EE EEE 
273 3 
299 $A MICROURIVE MAP IS A BIT MAP UF ALL SECTORS ON & MICROURIVE 
300 $THE BITS ARE COUNTED FROM O TO HD_MAX-1 THE LENGTH 
301 30h THE MAP IS THEREFORE GIVEN BY:- 
Zaz 3 
303 MAPLN Eau 32 
S04 3 
305 $THE MAP IS CREATE’ FOR EVERY URIVE CONTAINING AN OPEN FILE 
306 3 
307 #LIST ON 
S08 
BO? 
310 
211 GLOBAL ACT_UN SOFEN A NET STREAM 
Siz GLOEAL IN_N 3INCH FOR INFUT/INEEYS 
213 GLOKAL OUL_N SWRUCH FOR NEI 
314 GLOBAL NTCLSE PSEND A “CLOSEO” NET BUFFER 
B1S GLOBAL NOFEN SOPEN A NEt CHANNEL : 
B14 GLOBAL NTEME SOPEN A TEMPURARY CHANNEL 
317 GLOWAL IN_BY' SACTUAL INCH ROUTINE (ALL CASES) 
S18 GLOBAL CHANGE SCHANGE INFUT/INEKEY$S AS NEEDED 
319 GLOWAL ON-TO SOUTPUT TO NEI WITHOUT WAITING 
S20 EXTERNAL BUCUL SRESTORE GRIGINAL BORDER COLUUR 
321 EXTERNAL RETHAS SEX1T VIA PAGING MECHANISM 
og EXTERNAL S1R_OF sENTER STREAM DATA BYIES 
B23 EXTERNAL RELNAM 
S24 
S25 GLOBAL OUTPAK, RSPUND, INFAK, GE1TPAK, QUTNET, OUTSCT, INSCT 
B26 
B27 
3223 $DATA ON THE NE? IS FORMATTED INTO “FACKET SETS’. A PACKET SE! COMPRISES 
S29 $¢1) A “SCOUT”, WHICH £5 THE STATION NO. OUTPUT SLOWLY. : 
330 3¢(11) A HEADER PACKK1 OF & BYTES: 
S31 3 THE STATION NO. OF THE LESTINATION. 
B32 3 THE STATION NO. OF THE. SENDER, 
S33 5 THE TYFE OF THE PACKET SET (“DATA’ OR “CLOSE’). 
B34 3 THE LENGTH OF THE DATA BLOCK (°0° & “255°). 
S35 3 THE NUMBER OF THE BLOCK (“Oo -— “65535-~). 
Bao § A CHECKSUM FOR THE DATA. 
S37 3 A CHECKSUM FOR THE FIRST SEVEN BYTES OF THIS HEADER. 
333 $(111) A DATA PACKET, BETWEEN 1 & 255 BYTES (OMITTED IF NO DATA). 
S39 : 
340 
3413 THE DATA FOR A NET CHANNEL IS AS FOLLOWS: 
342 
343 sDEFW O008H , SHADOW ROM VECTOR 
244 3DEFW QOQ0SH sSHADOW ROM VECTOR 
345 NCCOUE EQU 04H 3°N? : * 
346 NCWRCOH ERU OSH 3WRCH ADDRESS 
347 NCINCH ERQU O7H sINCH ALURESS 
34S NCILEN EWU O9H : SLENGTH UF NET CHANNEL DATA 


SHNET PAGE & 


os 


SH_NET FAGE 7 
? 


Loc OBJ CODE M STMT SOURCE STATEMENT SM 5. 
349 
250 OUTPUT DETAILS -1THE NEXT & BYTES ALSO FORM THE HEALER 
: 351 NCIRIS EQU OBH s°IRIS’ STATION NUMBER - DESTINATION 
252 NCSELF EGU OCH 7OWN- STATION NUMBER 
283 NCNUMB EQU ODH SHLOCK NUMBER (O° TO “é68535-) 
354 NCIYPE EQU OFH STYPE OF PACKET - “UATA’ OR “CLOSE- 
SES NCOBL EGU 10H SQUTPUT BUFFER LENGTH 
354 NCLCS EAU 11H sDATA CHECKSUM 
og pee 387 NCHCS  EQU 12H SHEADER CHECKSUM 
253 
259 sINPU] DETAILS 
360 NOCUR EGU 13H #NUMBER OF LAST CHARACTER TAKEN DUKING INPUT 
S¢1 NCIBL  EOU 14H sINPUT BUFFER LENGTH 
362 — 
263 SAND FINALLY THE BUFFER " 
364 NCB EWU 15H +BUFFER FOR INPUT & QUIFUT OF 255 LOCATIONS 
265 NCEND EQU N_LEN 
3h 
247 
Boe 3 TOTAL LENGTH = @114H = 276 DECIMAL BYTES 
269 ' 
270 
FC a a RE a ST 
372 
273 
274 
. 875 
; 274 SCHANGE SLIBROLITINE 
377 FCOMMON TO BOI NET & DRIVE SUF PARE 
000 | FRCBOZTE 378 CHANGE RES 3, (1Y+TV_FLAG-Y) SCORRECT THE EKKOR ON EACH CALL 
379 
0004 ES 280 PUSH HL . RUUTINE ADDRESS TU SIACK DURING THE TEST 
oooOs — 2AaDSC 331 LE HLy(ERRUSP) $FETCH THE ERROR FOINTER 
0008 SE 332 LUE» (HL) $FETCH THE LOW BYTE 
0009 2a 383 ING HL 
OOON 5G 334 Lu Ds (HL) 7AND THE HIGH BYTE 
OOOR A? 285 AND A _ PREPARE FOR A IRUE SUBTRACTION 
ooOn  BI7F1O 386 LU HL AO7FH>™°" ADDRESS OF EDLERROR (IN EDITOR) 
OOOF  EDS2 387 SEC HL, DE | $D0ES THE ERROR SACK PUINTER ADDRESS 107EH ? 
0011 2028 238 JR NZ, MROCHS sJUMP TO THE INCH ROUTINE FOR INKEYS#N 
OO1t EL 339 PCP HL SRESPORE ROUTINE ADDRESS 
370 sCONTINUE FOR INPUT #N 
291 
392 
295 ;UROP THE STACK BACK 
0014 EDT BanSC S24 LO SP, (ERR_SP) : i 
Oo13s LIM 295 POP DE 
001?) B96 POP DE 
oo1a- EnSeapsc 397 LU (ERR_SP), DE 
et 
B29 3FUSH A RETURN ADURESS ON THE STACK 
OO1k ES 400 MRDCH4 PUSH HL STHE ACTUAL INFUT ROUTINE ADORESS 
OO1F 112400 R 401 LO DE, MROCHS 
oo2z2 DG 402 PUSH LE 
0022 EF 403 JP (HL) +JUMP 10 ACTUAL INPUT ROUTINE 


404 
405 MRDCHS 
0024 = - 3800 406 JRC MRUICHS 


SHNET PAGE & 


Loc OBJ CODE M STMT SQURCE STAfEMENT ASM 5.9 
0024 2805 407 JR Z_ MRSS TRY AGAIN 
_ 408 MREICLO : 
023  FLR60007 409 Lu (IY+ERK_NR-Y) +7 70R EOF 
oo2zC EF 410 RST RUMERR 
411 MRNSS 
oozn EL 412 PoP HL. 
OOVE  18EE 413 JR MRDCH4 | 
414 
, 415 SCONSIDER THE CHARACTER re ex 
0020 FEOD 414 MROCH& CP ODH SEND UF LINE? | ; 
2 S804 417 JR 2. MRLICH 
: L7 418 RST CALBAS ax 
0035  SSOF a9 DEFWOFSSID”" SENIER IT INTO INPUT BUFFER 
O037 El 420 PUP HL SKETCH INEUIT ROUTINE AQURESS 
oo38 1864 4z1 JR MRDCH4 ROUND AGAIN 
; 422 
423 3T0 EXIT 
OO3A EL 424 MRIICH7 POP HL DROP INPUY ROUTINE ADDRESS 
OOSH C30000 X 425 JP RETHAS sEXIT 
427 MRDCHS 
OOfE EI 422 PoP HL 
QOZF 114400 R 422 Lu DE, MROGH? 3PUSH A RETURN ADURESS ONIU THE STACK 
0042 DS 430 PUSH OE 
0042 ED 431 uP (HL) SAND "CALL" THE INPUT ROUTINE 
4232 MRDCH? 
0044 Ds 433 RET c SRETUKN UNLESS EOF 
0045 Cs 434 RET z 
0046  FLICB7C64 435 BIT 4, (IY+FLAGS3-Y) 3NO REPORT IN MOVE 
oo4A Rane 426 JR Z,MRDCLO 
0040 F404 437 OR 1 sUUST NCPNZ 
QOO4E C9 438 RET 
43F 
44a 
441 
PDO hha Meet Na aha ee ope eet he a a Re hd oS ee We) he tate 
443 
444 
445 IN_N STHE INCH ROUTINE FOR THE NET 
444, sLOOKS IN THE BUFFER FUR A CHARACIER 
447 STAKES IT IF ONE 13 FOUND 
443 31F MOT AWAITS A FURTHER PACKET 
449 : 
OO4F 215500 R 450 LD HL» IN_BYT 3THE ACTUAL INPUT ROUTINE 
o0s2 ¢C30000 R 451 JP CHANGE 
452 
ASS 
AL eae se Rech neh tas tks ate aote Me Sei aS he ND RL cater at att od ot 
455 
454 
457 
oo8S LDZASiSC 453 IN BYT LD IX, (CURCHL) $FETCH BASE ALDRESS OF CHANNEL AREA 
459 
0052  LL7E1O 4460 LE Ay CLX4+NCORL) 3FETCH THE ‘OUTPUT’ LENGTH 
oOsC AT Aol AND A 
oOSD za02 442 Jk 2, 1N_BO SJUMP IF O.K. 
ab3 


OOSF E7' 44 RST SH ERR 


a ee 
Q060 


O61 
o0b4 
OLS 
067 
QO6A 
0068 
0040 


OO4E 
Q070 
Q071 
0074 
007% 
oOa7y 
OO7A 


OO7B 
OO7E 
OO7F 
OOSL 


ook? 
OO8S 


o0s2 
OO3R 
oOosn 


agora 
OOF? 


OOPS 
OOF 
OCrPA 
oor7D 
OOAO 


ODOR? 
OAS 
OOAS 
Oo0OAR 
OOAS 
OAT 
QODAE 


OB! COLE M STMT SOURCE 


op 


DOSE 1 


a 


. 30 


93 
330D 


1400 
1 
DN72123 
opi? 
DON7E14 
37 

c? 


 DINZ7EOF 


A7 
2801 
Cc? 


SACESC 
D2FE 


F2 


C4102 
SOLS 
COSHOL 


2010 
FB 


Cooeod 
DO341300 
BADESC 
LILI? 7 OF 
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STATEMENT AEM 3.9 
DEFB ODH s°REALING FROM A “WRITE” FILE” 
LD A» CIX+NCIBL) ;PRESEN) LENGTH OF BUFFER - “O° TO “255° 
AND A sCOULD IT BE ZERO? 
JR Z,IN_B1 3JUMP IF IT 15 
LD E.(1X+NCCUR) INUMBER OF LAST CHARACTER TAKEN - “O° TQ “255- 
DEC A 
SUB E 
JR C,IN_B1 SJUMP IF BUFFER EMPTY 


sNUW FETCH A CHARACTER 
LO 0,00H 
INC E SCONSIVER THE REQUIRED CHARACTER LOCATION 
LD CIX4NCCUR)LE sUPDATE THE POINTER 
ADU IX,DE 
LO A» (IX+NCH-1) 3FETCH THE CHARACTER 
SCF 7INEKEYSH#N REQUIRES CARRY SE 
RET sSUCCESSFUL SO RETURN TO - FOR INPUT — MROCH4S 
- FOR INEKEY$- RETBAS 


ue 


sELSE FEICH ANOTHER BUFFER 
sBUT FIRST St& IF INPUT HAS BEEN CLOSED 
LD A, (CIX+NCTYFE) sFETCH CURRENT TYPE FLAG 


AND A 315 IT “DATAY OR “CLOSE’ 
JR Z,IN_B15 : 
RET sEOF RETURN NC.NZ 


LO A» (DR+TOBORD) 
QUT (OFEH),A sCHANGE THE BORDER COLOUR AS SFECIFIED (BLACK DEFAULT) 


DI S INTERRUPT OFF 
7NOW ENTER A LOOF TO FIND A SUITABLE BLOCK 
CALL INSCT sWAIT FOR A SCOUT -— ALLOWING FUR “BREAK~ 
AR NO, IN_BS SJUMP ON TIMEOUT 
CALL GETFAK SGET A FACKET -— HEADER & LIATA 


SRETURN 2 IF OLE. 

SBUT HZ FOR ANY UF THE REASONS FOR FAILURE 
JR NZ, IN_BS ;FAILED WIIH THAT SCout 
EI 


sTHE BUFFER HAS BEEN REFILLED - OR FARTLY SOD 
CALL BLCUL TBURGER COLUUR RESTORED 
LD (CIX4+NCCUR),O0H sRESET THE CHARACTER COUNTER 
LD A, (OR+NT TYPE) sCUPY UVER THE TYPE FLAG 
LD (IX+NCTYPE),A 7“DATAY OR “CLOSE’ 


JR IN_BO sROUND AGAIN 

Lo A» CIX+NCIRIS) ;ARE WE EXPECTING A BROALICASTY? 

AND A 

IR Z, IN_B2 sYES...GET BACK AND POLL 

EI . STIMEQUT OR OFHER FAILURE CN Gr fPAK 
CALL B_COL 

AND Q s RETURN NC,Z 
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Loc OBJ CODE M STNT SOURCE STATEMENT ASM 5.9 
S23 
$24 
DAS) Seimei w isos A oe oe ee es a ee a, 
S24 
S27 
S27 QGUT.N ; #WROH ROUTINE FOR THE NET | 
S30 ; 
QOAF Do2A515¢ S31 LD IX, (CURCHL) $sFEICH THE BASE ADURESS OF THE CHANNEL DATA 
OOBS 47 S32 LD B.A SPASS CHARACTER fa B 
OOH4 DD7b14 S33 LD A, CIX4+NCIBL) 7FEICH THE “INPUT” LENGTH 
OOR7 A7 S24 AND A 
OORS 73 S35 LD A,B : TRESTORE CHARACTER Ta A 
QOoORY 2202 S34 JR Z,0UTUNO JUMP IF OK. 
S37 
OOBE E7 S33 RST SHUERR 
OORT oc Sage DEFB OCH s“WRITING TO A “READ’ FILE 
S40 
OOK LIMNSE1LO £41 QUTLNO LD E. (IX+NCOBL) SHUW MANY CHARACTERS ARE IN THE BUFFER? 
oOoro 1c 242 ING E SAUN “1° FUR THE PRESENT CHARACIER BEING HANULED 
OOCL 2008 543 JRO ON2, CUTLINE sJUMP UNLESS THAT MAKES “254° IN THE BUFFER 
S44 
545 j sBUFFER FULL ~ SO SENU THE “255° CHARACTERS PRESENT 
OOCS FS S44 FUSH AF SSAVE THE FPRESENS CHARACTER CN THE STACK 
OO 4 AF 547 xaR A ‘ SSLGNAL TYPE “DATA“ 
OOS COEEOO RO &a4s CALL CQUTNET sSEND THE BUFFER 
Oots Fil n4¢ POP AF sRETRIEVE THE FRESENT CHARACTER 
oor? 1EQ1 berbaal O LO E,01H SRESET THE BUFFER COUNTER 
SNOW PUD THE CHARACTER IN THE HUF FER 
OOCE nuN7310 QUTLNE LO CIX4+NCORL)E SENTER UPDATED COUNTER 
QOOCE 1400 LO 0,00H SCLEAR ft 
OOLO oo1> ADD IX, De SALUD (Oo IX 
OOS DW7714 LL CIX+NCB~1),A SFINALLY ENTER THE CHARACTER 
OOS Co RET SFINISHED 
ES 
OO AF ses es ceca ca eect i ca ten ciate cee he ee te ee Sl as 
S41 
Sa2 : 
243 SNDPAK SSEND A PACKET OF E BYTES FROM *(HL)* 
aé4 ;7Q FORM A HEADER OR A DATA BLOCK 
S65 sh) NOT WAIT FOR A RESPONSE IF SENDING A BRUALICAST 
266 
OOS CDYOzO3 R S47 CALL OUTPAK SEND OUT A FACKET 
Oot DDN/7EOB S68 LO A, CIX+NCIRIS) 3 THE FRESENT DESPINATIUN SPATION NUMBER 
oon A7 546? AND A 
oonr cs 370 RET Z SRETURN IF SENDING A BROADCAST 
oonk ZAICKSC S71 LO HL, DR+N1PRESP 
OOEL 2400 S72 LL CHL»). OOH sCLEAR THE RESPONSE FLAG 
OOES 1EO1 S73 : LO E.Q1H 
OOES: CODSO2 R 574 i CALL INPAK SONE BYTE RESPONSE AWAITEL 
OOES co ; 875 RET NZ sRETURN NOW ON fIME-CUT 
OORF 3ACDSC 576 LU Ay (DR+NTRESP) 3FETCH RESPONSE 
OOEC id A] 77 DEC A $THE CORRECT “1° SETS THE Z FLAG 
OOEL cy 578 RET $ 2 SET IF O.K.3 ELSE RESET 
i 379 


580 
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Coc OBJ CODE M STNT SCURCE STATEMENT ASM 3.9 
set 
Be CRS i EI acta a a ead a att 
"$83 
aS 
£35 OUINET 7SEND A BUFFER GLUT 
OOEE CoFSOO R Sed CALL ONETO 
OOF 1 ae) : 537 RET NZ INOT A BROADCAST RETURN NO DELAY 
OOF2 caszo1 R 83 JP > BROADL 
5389 
t. £90 ONETO 
S91 3°A* HOLUS THE TYFE COLE - “DATA” OR “CLOSE* 
OOFS = DLN 70F 592 LD CIX+NCTYPE) 2A 370° FuR “DATA’S “1° FOR “CLOSE’ 
OOFS  DN46e10 S93 LU B, CIX+hHCUML) SNUMBER GF BYTES IN THE BUFFER 
OOorR SACSo0 94 LO A, (LR+ 08RD) 
OOFE = [IGFE 595 CUT (OFEH) 2A S CHANGE THE BORDER COLOUR AS SPECIFIED (BLACK DEFAUL1) 
oO100 NES S94 PUSH IX 
oO10e D1 e 597 PUF DE SBASE ALURESS TO DE 
o10s 211500 Soe LO HL,NCE $THE BUFFER OFFSET. 
0106 1? S29 AULD HL, DE sPOINT TO THE BUFFER 
0107 AF £00 xoR A 
O103 BG 401 ONET1 ADL! A,» (HL) sADD IN EACH BYTE 
O1097 FR 602 ING HL 3STEP ON 
0108 1OFC 602 DUNZ ONEI1 
o10c pO7714 404 LO CIX4+NCuIeS) A SENIER THE LATA CHECKSUM 
405. 
£06 3NOW FIND THE HEALER CHECKSUM 
QLOF FLOBRGO  . 607 LO HL NCIRIS STHE FIRST CF THE HEAUER SYTES 
O112 «19 603 ADD HL, DE 
O118 ES &0% PUSH HL SSAVE (HE POINTER fO NCIRIS 
0114 0607 610 LD B,NCDCS-NCIRIS+1 SAUL THE FIRST SEVEN BYTES OF THE HEADEK 
O11& AF “  &AL xaR A SCLEAR THE ACCUMULATOR 
O117  -&G 612 ONET2 ADD A, (HL) SALI IN EACH BYTE 
O11e we 613 ING HL SSIKP CIN 
O119 1OFC 414 DINZ ONEI2 SROUNG UNTIL FINDSHED 
O118 77 £15 LD (HL) 2A SENIER RESULT INTO “NCHCS” 
O11c 3 614. DY SINTERRUET OFF NOW 
617 
613 'THE HEADER HAS NOW BEEN SET UP IN THE CHANNEL DATA AREA 
é1? SFOLNTER TQ IT IS ON THE STACK - 
O110 cnAdoe R 620 GNETS CALL OUTSCT SSEND QUT A SCOUT (WAITING UNTIL SUCCESSFUL) 
o1z0.)©6 EL 621 POP HL 
O11 ES 622 PUSH HL SRETRIEVE FOINTER TO “NCIRIS~ 
O12 1EOS &23 LD E,NCHCS-NCIRIS+1 $STHE LENGTH OF THE HEALIER 
o124 cCOnGoCgo R 424 CALL SNDOPAK 
O12Z7 ZOF4 625 JR NZ,ONETS3 SNUT ACKNOWLEDGED - SO IRY AGAIN 
626 3A EROALIZAST WILL ALWAYS “PASS* THROUGH 
627 
G23 SHEADER HAS NCW BEEN SENT 
DOES: beg PUSH IX 
El 430 FOP HL SBASE ADLKESS TO HL 
111500 &31 LO OE, NCE SEUFFER OFFSET 
1? G32 ALL HL, DE SPOINT TO BUFFER 
DOSE LO 433 LO &. CIX+NCOeL) 3FETCH LENGTH 
7B G34 Lo AE STAKE A COPY 
A7 635 AND A ;fEST IT 
2209 634 JK Z,ONET4 3JUMP 1F NU LIATA 
637 
633 ; SNOW SENT THE DATA BLOCK 


Pee oe ne eee aren 


0140 
01423 
O143 
O14 
O14 
o14c 


0140 
O150 
O1a1 


O1S2 
OSS 
O1L56 
0157 


O1SS | 


O1tA 


O13H8 
QO1SE 
O1460 
O163 


O164 
O1&/ 
0162 
O14A 
O14E 
o14¢ 
OLS6k 
OL6F 


0170 
O173 
O174 


O1746 
OQ1L79 
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Of. COUR M STMT SOURCE STATEMENT ASM §.9 
0620 639 LD 8,20H 
1OFE 440 DUNZ & 7JUST WATT A WHILE HOWEVER 
Coo400 R 641 CALL. SNOFAK 
Onn 642 JR NZ,ONETS SNOT ACKNOWLEDGED ~ SO TRY AGAIN 
643 5A BROAQCAST WILL ALWAYS “PASS: THROUGH 
£44 
6435 SUPDATE POINTERS AND TIDY UP 
nos4on 64& ONET4 INC (IX+NCNUMB) sUPDATE THE BLOCK NUMBER 
2003 647 JK NZ,ONETS 
DUZ40E 648 INC (CIX+NCNUMB+1 ) S INCLUDING HIGH BYTE IF NECESSARY 
El 449 CONETS FOP HL MRO POINTER 
Cooo0O X 650 CALL BLUaL SRESET THE BORLER COLOUR 
FE 631 EI S INTERRUPT ON 
452 
Du/EOR 653 LD Ay CIX4+NCIRIS)$FETCH THE “DESIINATION’ NUMBER 
A7 G34 AND A STEST IT " 
C9 Sata REV 
S356 
457 BROALUL SDELAY FOR SPACING OUT BROADCASTS 
110015 658 LD DE. LS00QH 
1k 452 ONES DEC DE : 
7E £40 LD AVE 
Bg 641 OR DU 
ZOrB 662 JR NZ,QNET4 
ce 463 RET sEXIT 
644 
645 
6646 
447 
OR Se tata a a a a Se ac Ns a ak a ee We ot 
669 
670 
&71 é 
£72 GkTPAK sCOME HERE OUNCE A SCOUT HAS BEEN FOUND 
£73 SFARST AWAIT THE HEADER, THEN FETCH THE DATA BLOCK 
&74 
21ICESC 673 LO HL, DR+NTUEST $ THE HEADER 1S COPIED INTO THE SHADOW SYS. VARS. 
1EOS &7& LD E,O08H STHERE WILL BE “8° BYTES IN ALL 
CoOnsoO2 R &77 CALL INPAK 3FETCH THE HEALIER 
co 678 RET NZ SRETURN NW LF *TIME-ouT~ 
47? 
680 TFROCEED TO ANALYSE THE HEADER 
&St SFIRST EXAMINE THE CHECKSUM 
S1ICESC 4632 LO HL» DR+NTDEST 
AF 633 XUR A 
0407 434 LO B,O7H sSNUW MATCH THE HEADER CHECKSUM 
S4 685 GET1 ADL A» CHL) sALUD EACH BYTE IN 
2 &84 INC HL 
1OFC &37 DUNZ GET1 SROUND FUR EACH 
BE 403 CP (HL) SAND TEST 1T AGAINST “NTHCS’ 
co 6359 RET NZ SRETURN IF INCORRECT — NZ 
. 490 : 
SACESC 691 Lo A, (DR+NTDEST ) 31S IT & BROALCAST 
A7 692 _ ANd AS 
2eaon 493 ' JR Z,GET15 ‘ 2 
694 
DOBEOC 699 cP CIX+NCSELF ) 7NO0...1S IY MEANT FOR Us 
co 676 RET NZ . 
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Lac: OB CODE M STMT SOURCE STATEMENT ASM 5.? 
£97 : 
O17A  ZACFSc. 693 Lu A» (DR+NTSRCE ) sIS IT FROM THE RIGH) IRIS 
o170 DOBEQR ° &99 cP CIX#NCIRIS) : 
O,eao co 700 RET NZ 
OLe1 1805 701 JR GETZ 
702 GEI15 
0133 DU7EOB 703 “LD A» (IX4+NCIRIS) 3 BROADCAST...1S IT EXPECTED? 
O1g8é6 @7 704 OR A . 
0197 ca 705 RET Nz 
70E 
707 GET2 
O,oes ZANOSIC 703 LD HL» (OR+NTNUMB) 31S IT THE RIGHT BLOCK 
O1ce ONSEOL 70? Lo E, (IX+NCNUMB) 
OVGE LDS4S0E 710 Lb D, (IX+NCNUMB+1 ) 
OL. A7/ 711 AND A 
O1L92 Ens2 712 SBC HL,» DE 
O194 2312 } 713 JR 2,GET3 sYES..READ IT 
. 714 
OLPS 28 715 . DEC HL. SWAS IT THE ONE BEFORE? 
O1%7 7t TAS Lo ALH 
O1ss HS 717 : OR L 
O1?9 co Jig RET NZ INO...NQ Goon 
71? ; 
O19 COASOL R 720 CALL GETS $YES...THE SENDER MUST HAVE MISSEL 
o1°n Dosston 721 EC CIX+NCNUMB) fQUR ACK..sKESFONG IT AGAIN 
O1aAd 3003 722 JR NO,GET25 sCORRECT THE BLOCK NUMBER 
O1A2 HoOssoe 722 DEC CIX+NCNUMB+ 1) 
- 724 GEI25 
OLAS F401 725 OR 1 3AND RETURN UNSATISFIED 
OLA7 C2 726 RET 
727 GET3 
OLA SACESC 72 : LD A. (UR+NTDEST ) 315 A RESPUNSE WANTEL) TO HEANER 
O1An 7 729 UR A 
O1aAc C40103 R 730 CALL NZ,RSPOND 
731 4GET35 
OLAF 3AD35C 732 LD A, (DR+NTLEN) 3FETCH THE LENGTH OF THE INCOMING BLOCK 
O1R2 A7 732 AND A 
O1LB3 2821 724 AR Z,GETS 3JUMP IF OF “NULL’ LENGTH 
O1eS Ques 35 FUSH IX 
O1B7 El 734 POR HL s;BASE ADURESS TO HL 
OLRS 111500 7237 LO DE.NCB SBUFFER OFFSET 
OLB 1v 733 ALL HL. DE SHL POINTS TO THE BUFFER 
O1LRC ES 739 PUSH HL SSAVE A COPY OF THIS BASE ADDRESS 
QOLBu SF 740 LD E,A sMOVE THE LENGIH To E 
O1BE CbDISO2 R 741 CALL INPAK 3FETCH THE DATA BLOCK 
O1C1 El : 742 POF HL SRETRIEVE THE BASE ALURESS 
O1C2 co 743 RET NZ sBUT RETURN NZ IF TIME-oUT 
744 : : : 
743 *CHECK DATA BLOCK CHECKSUM 
O1c3 SADSSC 746 LD A, (UR+NFLEN) SNUMBER CF BYTES 
O14 47 747 LU BLA s;PASS IT TO B 
O1LL7 ZAD45C 743 LD A, COR+N TLCS) 3FETCH THE “OATA CHECKSUM’ 
O1CA M6 74? GE14 SUB (HL) 1 sSUBTRACT EACH BYTE IN THE BLOCK 
Q1CR 23 7350 INC HL 3STEP GN 
o1ce)e 10FC 751 DINZ GET4 SROUND UNTIL FINISHED 
OLCE co 7352 RET NZ sRETURN IF CHECKSUM IS WRONG 
783 


754 SNOW ACKNOWLEDGE THE BLOCK IF NEEDED 
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LOC OK CODE M STMI SOURCE STATEMENT AsM 5.9 
O1CF = @aAcksC 758 LD Ay COR+NTDEST) VFETCH “DESTINATION SFATION’ NUMBER 
o1ne A? 754 AND A ITEST IT 
O103 cC40103° R757 CALL NZ,RSFOND sACKNOWLEDGE THE. BLOCK UNLESS IT WAS A BROAGCAST 
752 
75 SUPDATE AS NEBLEL 
O1N6 SAnEsC 740 GETS LO A, (DR+NTLEN) 
O1D9 107714 7Ol LD CIX+NCIEL),A SUPDATE THE INPUT LENGTH 
762 De 
O1nc =nps4ou 743 INC (1X+NCNLIME) sUPDATE THE BLOCK NUMBEK : 
O10F 2003 764 JR NZ,GEIG ; 
O1E1 = DV340E 76S INC (1X+NCNUMB+1) SINCLUDING HIGH BYTE IF NECESSARY 
Tks 
767 tEXIT Z 
O1E4 BF 768 GETS CP A 
O1ES = C9 742 RET 
770 
771 | 
772 
VAD OY ESS ere ee SE es SE Se ee aS he a ete ie ta et ante St 
774 
715 
718 
777° «ACTON SOPEN A CHANNEL FOR THE NET 
778 
O1\ES CDFe01 R 779 CALL NOPEN 
O1EY cCRBOO0O0 xX 750 JP STR_OF sENTER CHANNEL DATA AND THEN THE STREAM DATA 
782 
POS: Pls Roel Jae ee oo Sh ie Sse i ra a ee 
Wat 
7aS 
TRE 
| 737 > NTEMP SOVEN A NET CHANNEL “MARKED TEMPORARY’ 
jOLEC , CRFeo1 oR 788 CALL. NCPEN 
OER | UbeAST SC 739 LOOX, (CURCHL) sBASE ADDRESS 
jO1FS } DOCRO4FE 720 SET 7. CIX4+NCCODE) SNARK IT 
jO1F7 3 CR” 771 "RET 
1. od TP 2 : ‘ 
j | 7923. Vonnece eS SoS eee ee A a ha ee it el oe oe 
| { 794 1 
\ : 795 SENTER THE CHANNEL DATA @35 FOLLOWS 
(OWFS | ZASSSC | 796 NOPEN LO HL. (FROG) STHE DATA GOES BEFORE THE SASIC PRUGRAM 
{OLFH I 2B 727 LEC HL ; 
fore » OL1401 /92 LO AC, NOLEN ;NUMBER CIF BYTES IN A NET AREA 
fOLEF [| CS» 799 PLUSH Br . 
O200 Hl 07 Soo RST CALBAS . Y : 
i} S14 Bot DEFW 65H) (INSERT CHANNEL, DATA FOR A NET S1REAM 
| 23 S02 » ING HO 
i C1 GO3 . FOP HI Kee i 
'O205 X 804 CALL RELNAM $RELOCATE FILENAMES FOR MOVE "N" Ta "Mm" 
hO208 BOS | LO (CURCHL), HL $MAKE THE NEW CHANNEL THE “CURRENT CHANNEL‘ 
OZOH 806 , EX DE, HL 
200 R 807 LD HL, NETINI $THE INITIALIZATION DATA BASE ADLURESS 
(O20F 4, OLOEOO 08 “LO BID, OOOBH S$ THERE ARE “11° FIXED NUMBERS 
0212 | EDHO 80° ' LDIR , COPY THEM FROM THE TABLE 94 
‘0214 || SADESC B10 ) LD As (DR+D_STR1) sENTER THE “IRIS STATION NUNBER 


ozie | 13. @12 INC DE _ SSTEP ON 


iat 


jO217 | 12 811 LD (DE),A 
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Loc OBJ CODE M STMT SQURCE STArEMENT ASM 3.9 
O219 SACSSEC 813 LD A, (DR+NTSTAT) SENTER OUR FRESENT STATION NUMBER 
o21C 12 814 LO (DE),A 
O21U 13° 815 INC VE . SSTEF CIN 
OS1E AF G1) XUR A 
S17 ; 
12 313 LD (DE),A 3A FIRST ZERO. 
62 G19 ‘ LO HG 
&B 820 LD LYE 
123 B21 INC DE 
010401 822 LD BC, NCEND-NCNUMB-1 
EDRO i283 LOIR sCUPY ZERO THROUGHOUT BLIFFER 
ELISHS1SC 24 LO ME, (CURCHL) $RETURN WITH BASE ALUDRESS IN DE & (CURCHL) 
Cy S238 RET 
S26 
$27 
623° NETINI VINITIALIZATION DATA FOR A NET CHANNEL 
0220 0800 B29 DEFW OOOSH 
O22F Q8oo 830 DEFW OOO8H 
9 4E Gai DEFBR “N* 
AFOO R e832 DEFW OLIT_N 
4FOO R 32 , DEFW INN 
1401 e324 : DEFW N_LEN 
S35 ; 
BBS 
BRT cee i na a nl gl al ea neon ign mine ee ea ee, 
e239 
840 
841 NTCLSE sEMPTY THE NET BUFFER IF ANY UNSENT OUTPUT PRESENT 
DOZASTSC 842 LD IX,(CURCHL) $FEICH HASE FOINTER 
LW7E10 843 LO A, CIX+NCOBL ) 3;FETCH LENGTH 
A7 844 . AND A 
Ce 845 — RET Z SRETURN IF NO GUIPUT To BE SEN1 
SEOL G46 LO A,O1H sBUT WHEN THERE IS — SET “CULUse- 
C3EEOO R 847 JP QUTNET sSENU) THE BUFFER 
842 : 
349 
BO 8 er ei noe ete ne ep pee, 
e351 
852 
es : 
354 NETIDL WAIT FOR THE NET TO BECOME FREE 3 - & MS APPROX. 
$35 FALLUWS FOR BREAK fo BE REAn 
S546 3TAKING THE CURRENT VALUE GF -R- RANDOMIZES THE DELAY 
857 
O244 ELIS 353 LD AR FETCH THE “R* REGISTER 
O243 FéCO B29 OR OCOH sSET BITS 6 & 7 
O24A 47. 840 4 LD BA 
O24B cos102 R G41 CALL IDLE_1 SWAIT A “RANDOMIZED’ DELAY 
O24E BSré 842 JR C,NETIOL SREPEAT IT ALL IF -’BUSY- 
O250 cp? 862 RET sEXIT WHEN “FREE? 
844 
345 IDLE_1 7WAIT “RY PASSES 
B46 SRETURN CARRY SET IF “Busy 
847 SRETURN CARRY RESEY IF “FREE- 
o251 SE7F 86 LD A,7FH 
O23 UEFE Yo? IN A; (KBLPT) SREAD THE BREAK KEY 


OOZES OF 870 RRCA 
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Loc OBJ CODE M STMT SOURCE STAIEMENT ASM 5.9 
O24 30383 871 JR NC» NETUBK JUMP IF BEING PRESSED 
O258 cs €72 IDLE.2 PusH BC 
O239 ci ° 873 POP BC ; #WASTE TIME 
O25A CRF 7 374 IN A» (SERTAL) 

O25C OF 875 RRCA . 

o2SD Lig 874 RET C SRETURN WHEN “BUSY~< 

O25E 10F9 877 UINZ IDLE2 sDECREASE THE COUNTER 

0260 cy 873 | RET SRETURN ONCE NET FOUND “FREE FOR USE’ 
879 
£30 


sINSCT WAITS AT MOST 12.4M5 FOK A SLOUT, 

SUNLESS WE ARE WAITING FUR A BROADCAST IN WHICH CASE 
sWE WAIT TILL WE RECEIVE A SUOUT 

sTHE CARRY FLAG I'S SET IF SUCCESFUL 


? 
93° INSCT . 
O241 210201 § ow HL, 450 STIMEOUT...MUST BE EVEN 
25 ISCO. 
0264  O680 | 89 Lu H, SOH 
ensi0z oR 8s CALL IDLE. sWAIT FOR A GAP OF 2MS OR RETUKN IF BUSY 
-O259 3000 2g JR NC,ISC! 
O26B 2B OF DEC HL 
O24C 28 200 OEC HL 
O24D  7L Pe AyH 
O26E BS ¢ oR L 
OZ4F  20F3 903 IK NZ, ISCO 
0271  DW7EOH 1 LD A,(IX+NCIRIS)  $ARE WE EXPECTING A BROALICAST 
OZ74 AT 905 ANU A 
o275  28ED IO6 uk Z,18CO #YES ...KEEP LOUKING 
o27? CP 907 RE 
908 18C1 
0278 DEF7 909 IN A, (SERIAL) 
027A OF 910 RRCA 
OZ7B = -3B1C 911 JK c,1sc2 
giz 
O27U 3E7F 913 Lu A,7FH 
OZ7F = DEFE 914 IN * A, (KBLPT) 
OZ81° OF 915 RRCA 
O282 300 216 JR NC, NET_BK 
917 
2B v1 DEC HL 
7c $19 Lo AyH 
BS 920 UR L 
Z0EF 921 JR NZ,ISC4 
DD7EOR 922 Lo A, CIX#NCIRIS) sBRUADCAST EXPECTED? 
a7 923 AND A 
2869 924 JR ‘2,181 ;DON’T GO LOOKING FOR GAPS AGAIN 
cy 925 RET 
26 
ozF0 FH 27 NET_HK EI FINTERRUPT MUST BE ON 


291 Coo000 X yao CALL BUCUL SGIVE THE BORDER (TS CORRECT COLQUR 
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Loc Ot CODE M SINT SOURCE SfATEMENT ASM 5.9 


0294 FINs60014 
O278 EF 


LO (IY+ERKRNRK-Y), 14H 7° BREAK INTO PRUGRAM- 
RST RUMERR sEXIT 


SCUNTINUE SHOULLE A SCOUT BE FOUND 


SEO? LO LOH sWAIT FUR A PERIUD SO AS TO FASS THE SCOUT 
S 20 DEC L 
O29 37 9s StF 
O29 ce 93 REY Z SEXIT AFTER LOOPING 
O2V7E Q40E 938 LO &8.0EH 
O2A0 10OFE 39 LINZ $ SWASTE TIME 
O2A2 1SF7 940 JR SCS 
oat 
v4 
943 
944 
BUN nn a i 
Dad 
947 
743 OUTSCT sATTEMPT TO SENU OUT A Stout 
949? SIF UNABLE TO D0 IT IMMEDIATELY JWST TRY 
SO ;QOVER AGAIN 
51 sBREAK IS REAQ IN NETIDOL 
V52 
OnA4 CN4402 R 9°53 CALL NETIDL 3WAIT FOR THE NET TQ BE FREE 
954 TREAD BREAK KEY AS NECESSARY 
i Pes 
O2A7 OEF? P54 a LU C, SERIAL 3FETCH THE FORT ALLURESS 
OLAP 210900 27 LO HL,O007H 7H HOLOS OOH ~ TO ACTIVAIE THE NET 
Sg 3L HOLDS OFH ~ FOR * BITS 
O2ZAC SACSS Vo? LO A, (DR+NTSTAT) SFETCH GOWN STATION, NUMBER 
OZAF oF P40 LO EA sPASS IT TOE 
O2ZBO CEE 7 PaL IN A, (SERIAL) 
OSH OF 962 RRA : 
OLR SEF YGR JR C,QUTSCT STRY AGAIN IF NET HAS GONE ACTIVE 
964 
P65 iNOW ENTER A LOOP FORK THE BITS OF THE STATION NUMBER 
964 OS8C1 QUT (C),H 
P47 LO LH STAKE A COPY OF THE BIT SENT 
PER LOD H,QOH ACLEAR THE H REGISTER 
249 RL & THE STATION NUMBER GOES TO THE CARRY 
9/0 SMS 81T FIRST 
CB14 971 RL OH SPICK UF THE CARRY CIN EACH FASS 
O40 V72 LO 8,08H 
1OFE ?73 DJINZ $ SWASTE. 104 T-STATES 
LIBF 7 O74 IN A, (SERIAL) FREAD BACK THE VALUE ON THE MET 
es E601 275 AND O1H sEEEF ONLY BIT Oo 
O20 HA I7& cP OD SCOMPARE THE BYTES 
O2C7 =30R 277 JR Z, 01ST SROUND AGAIN IF BIT © NOT CORRECT 
978 : SETVHER SOMEONE ELSE IS TRYIMG To GET UN THE NET 
279 3(WITH A LOWER STATION NUMBER) 
9aQ 3OR THERE [& A HARDWARE FAILURE CONCERNING THE 
bore | ; 3 NET 
0209 20 caved DEC L SOECREASE THE CULINTER 
O2CA BOEY 9SR JR N2,0501 sROUNLE AGAIN? 
O20 SEOL 924 LD A,O1H 
O2Ce [03k 7 ES OUT (SERIAL),A sENSURE THE NET IS INACTIVE 
ONG Q460E 9a LD 8,0EH 


“= noe 


Loc 


~ ozne 
o2n4 


O2US 
O2n7 
O2UP 
O20A 
anne 
OLDE 
O20F 


QOZEO 
OCEL 


ODES 
ODES 


O2F 1 
OZFS 
O2FS 
ODFS 
O2FS 


OOFE 
O2FC 
OnFo 


OFF 
O300 


OR! CODE M STMPF SOURCE STATEMENT 


10FE 937 
cy - 9a 
aed 

DIO 

oF 

e92 

992 

OF4 

99S 

GP 

Y?7 

head 

PE 

1000 

1001 

1002 

10023 

1F 1004 
hog 1005 
1006 
1007 
O4 LOOe 
C9 . 1004 
1010 

42 1011 
1012 
1013 
1014 
1015 
10146 
1017 
1013 
1017 
1020 
1021 


LISF 102 R 


SH_NET 


DUNZ $ 
RET 


PAGE 18 
AEM’ 5.9 


sWASTE TIME 


$THE NET [3 GQURS - SO SEND THE HEALER NEXT 


INPAK sFETCH A PACKE1 FROM THE NET 
S(T WILL HE A “HEADER”. A “UATA BLOULE’ UR A “RESPONSE* 
3IN ALL CASES “E’ BYIES LONG 
;AND BYTES ARE Te Go Ta “(HL)* AND UNWAROS AS REVUIRED 
LI) B,OFFH 3SET A TIME-OUT COUNTER 
INL IN A, (SERTAL) 
RRA SBIT © GOES TO TH. CARRY 
JR OC, INEZ SJUMFE WHEN THE NET BECOMES ACTIVE 
STH LEADER HAS BEEN FOUND 
O.INZ IN1 SROWNG LF NOT 
INC B SMARES NZ 
RET SRETURN ON TIME-aut - NZ 
IN2 LU BLE SFETCH THE BYtk COUNT 
SNOW ENIER A LOUF TO GET THE BYTES 
INS LD £,.%0H SSET A “MARKER BIT 37 
LD A,OUFH.AND.CTS. ANU. SELD sRESET BIT & 37 
CUT CSTATUS),A SUSE “WAIT” TO SYNC 
sTO “STARTS BIT 11 
$STEP PAST THE REST UF THE START BIT 
NuP SWASTE- TIME 34 
NOP 54 
INC IX $10 
DEC IX $10 
Inc IX 310 
DEW IX : $10 
; SNOW ENTER A LOUPF TO G:k&T 3 BITS 
IN4 LD A,OOH SWASTE TIME 37 
IN A» (SERIAL) SREAD IN A BYTE 11 
RRA 3BIT O TO THE CARRY 34 
RR E SCARRY’S ARE COLLECTED IN E 32 
JF ONC, IN4 SRUUND FOR & BITS 310 
sSAVE THE BYTE 
LO (HL).E 37 
INC HL 3STEF ON THE FOINTER 34 
DINZ INS sRUUND AGAIN? $13 


CP A 
RET 


3FINISH OFF 
sMAKES Z 
sREIWAN SUCCESSFUL - Z 


3 
3 BIT COLLECTING LOOP IS 40 T-STATES 


ay ks SHUNET PAGE 19 
Toc OBU CODE M sTMT soURCE STATEMENT ASM S.P? 


1045 AND THE BITS SHUULO BE COLLECTED ABQUT MID-PULSE 
. 1044 

‘ 1047 
104s ‘ 
DDB een na eee 
1050 
1021 
1052 RSPOND ;SENL A RESPONSE 
1053 

O301 3EO1 1054 LL’ A, OLH jTHE RESPONSE IS A “1° 


0203  ZLCDSC. LOeS LO HL, OR+N RESP STHE ADORESS UF THE “sTuRE’ 


OAL, ad 1054 LO (HLA SENTER THE RESPONSE 
M307 bat 1057 LO E.A STHE LENGIH CF THE RESPONSE IS ALSO v4- 
1032 iPROCEED TO SENU THE RESPUNSE 
1039 
1060 
1061 : 
10462 OUTPAK SSEND A PACKET OF “E’ BYTES STARTING AT “CHL 
1042 
AF 1044 XOR A 
1 1065 WUT (SERKIAL),A $FIRST ACTIVATE THE NET TO FORM A LEAUER PULSE 
oO: 208 0404 1044 LD B,04H 
OSOLI  1OFE 1047 D.AIN2 $° sWASTE TIME 334 
: 1048 
\ 1049 SNOW ENTER THE LOWE THAT SENDS THE BYTES 
OSOF “E ; 1070 «GUT1 LD A, (HL) SFETCH THE BYTE 37 
O310 =F 1o7i “CPL SINVER) ALL THE BITS 34 
O311 37 10/2 SCF sMAEKE A “START BIY- 34 
O212 ' 17 1073 RLA 3MOVE IN “START RIT’ 74 
1074 SBIT 7 GuES TO CARRY ‘ 
O313 OLO0A 1075 LO By OAH STEN BITS ARE TO HE SENT 37 
1076 
1077 ; AND NOW THE LOOF FOR THE BITS 
CEE 7 1078 QuUT2 QUT (SERIAL),A SSEND BIT oO $11 
iF 1079 RRA SROTATE ALL THE BITS 34 
7 1080 AND A SFOR THE “Sfar’ BIT 34 
OS 1031 DEC IDECREASE THE COUNTER 34 
1400 1052 Lo 0,0 SWASTE TIME 37 
CL150g RK 10233 JP NZ, OUTS FROUNG AGAIN? 710 
1034 
1035 3FINL THE NEXT BYTE 
23 10864 INC HL FSVEP POINTER ON 34 
it 1087 DEC E #LECKEASE THE COUNTER 34 
ES 1083 PUSH HL sWASTE TIME — 311 
El 1089 POR HL sWASTE TIME $10 
C20FO3 R 1070 JP NZ, OUT SROUND AGAIN? $10 
1091 
: 1092 ; 7ENL THE FINAL STOP BIT 
SEO1 1ov%3 LD A,O1H sSET BIT oO 37 
D3r7 1094 OUT (SERIAL),A sDEACTIVATE THE NET $11 
1095 
O32A Cc? 1076 RET SALL DONE 
1097 ‘ 
1ove 


sNOTESs 
1099 3 - THE LEADER IS $1 T-STATES 
1100 3; THE BIT LoWP IS 40 T-STraTes 
1101) 3 THE STOP HIT IS 98 T-STATES 


\ 


(CA) 
ws (% 


Lac 


QoN000 
OOL 
Oe 4 
Oooos 
oon? 
ooo 


QOOE 
Oo 
oo13 


OoO1S 
OO1S 
OO1A 


Ua CODE 


Le 
= 10000 
cre 


DDSA4F St 


111400 
Only 


LITEOO 
FERO 
2837 


DD7E04 
EA7F 
FE4D 


STMT 


HISOFT PAGE 1 

SQURCE STATEMENT AEM 5.9 
BFE AE SE ESE HEHEHE RE IE REE AE HEHE HE HE HE HEHEHE AE AEE EE HEHE EEE EE SESE GEE HE TE aE 
3% # 
Lal HISOFT.S Sa 
ial 12/3/33 + 
3% H+ 


ON So Ne 


5 MRE HEIR FE HE HEE HEHEHE SE HE IE HE HE HE HE IE HE GE SE HE HEE SE AE HE FEE HE AE TE ETE TE IE TE HE HE HE 


3 
#LIST ON 


GLOBAL CREATE. MREICH, MWMICH, WHER 
GLOBAL FREES CPS IR DECSECS LIST? 
GLOBAL. REAUN, HERKOR, DELI X, RUNXT 
GLOBAL MARK, WRREC, SPACE? 

GLORAL ECL, BCH, WREREE, CLOSEN 
GLOBAL WR, CLUS IX, AROIX, MWRIX 
GLOBAL READING 

GLOBAL Donic? 

EXTERNAL DURVSEL, RUHBLK» ROBLE. WRHHLE WRBLE 
EXTERNAL DIS10,HEX, UP, OPHEX 
EXTERNAL RELINAM 

EX FERNAL. QELBC 

EXTERNAL CHANGE 


CREATE CREATES A MICKODRIVE CHANNEL FOR THE FILE SPECIFIEL 
IN THE SYSTEM VARTAGLES 

TF A CHANNEL FoR THE FILE HAS ALREADY BEEN OPENED FORK 
WRITING AN ERRUR OCCURS, 


we ue ve ve ve 


i THE PROCEDURE paige THE NUMBER OF THE CREATED CHANNEL. 
THIS NUMBER GIVES THE OFFSET+1 CN! THE START CE HE CHANNEL 
sDATA FROM (CHANS) ANY IS APPROPRIATE FOR THE STREAM DATA 


31X POINTS fO THE CHANNEL UN RETURN 


3 
CREATE CORRECIS THE ADDRESSES IN NUSTRI AND NOSTR2 


sDRIVE 


SUH SC 
3 QUMMY 


CREATE 

EXX 

Lo HL oO SHL? WILL POINT 10 MAP FOR THE CHANNEL 

EXX 

Lu IX, (CHANS) sLOOK AT FIRST NON PERMANENT CHANNEL 

LD QE, 20 3 

ALIL 1X, D€ 
SHERE WE ARE LOOKING FOR AN EXISTING 
PCHANNEL WITH THE SAME NANE ANd URIVE 
7AND OPENED FOR WRITE. 

Lo A» CIX+0) SOON THE NEXT CHANNEL EX ier? 

cP SOH 

_ AIR Z,CR4 3NO..CREATE NEW CHABINEL 
Lo A, (IX+CHTYPE) iYES..1IS IT A MICRODRIVE FILE 
Ann 7FH 


“Me 


Loc 
O10 


OO1E 
O02! 
Oo024 


0024 
0027 
OOZA 
Ooa2n 


OOZE 
OO32 
0035 
0033 


OOSA 
QOSE 


0040 
o041 


0042 
0045 
0043 
004A 


O04 
OO4F 
OOsa 


OO 


o054 
OOS7 


OOSS 


“OO8? 


OO. 
OoOsF 


OOEL 
O064 


00467 
006A 
O04 


oo04n 


oa70 
QO71 
O75 
OO77 


OO72 
G07A 
007K 


2024 


BANGS 
DORE 19 
2010 


by? 
DDGELA 
DL441B 
ne 


EN4BDASC 
SADCSC 
CDSEOQ3 R 
2008 


DLR 12446 


ZEO2 


b7 
on 


DNSEOy 
OnS60A 
oui? 


18C2 


ZAS35C 
2B 
ES 


OLS302 
Oy 


LIS 

SLECOR R 
OLL9ad 
EDO 


SATIGSC 
007719 


OLS302 


cooooa x 


ER 
ED4RUASC 
CE72 
200E 


350 
S51 
352 
Cha) 
354 
S35 
Bo 
357 
358 
359 
340 
361 
342 
362 
344 
345 
366 
347 


Lo Oo oo Oo ie 


HYNN 


sobs We 


bm i 


G3 Gd bo G2 Od OD £ 


O19 O3 0g 6) Gd te Of 


CRS 


ue 


“ 


ve 


HISOF) 
CR! CODE M STMT SQURCE STATEMENT 


JR 


POP 


AIT, 


PAGE 2 
ASM 5.9 
NZ,CRE° - INO. .NEXT CHANNEL 
A, (UR+D_STR1) 
CLX+CHDRIV) sYES..SANE DRIVE? 


NZ,CRS 


; 3YES..USk THE SAME MAP LATER! 
Ls (IX+CHMAF) 
Hy CIX+CHMAP+1 ) 


BC, (UR+N_STRI) 


HL» (QR+NSTR1+2) ao 
CPSVK sDOES IT HAVE THE SAME NAME ‘ 
NZ,CRS ¢NO..NEXT CHANNEL 

WRFLG, CIX+CHELAG) $135 [7 OFEN FoR WRITE? 

Z,CRS SNEXT CHANNEL IF REAL. 

SH_ERR 3FILE ALKEANY GFEN FOR WRITE 

OLH SREAQING FROM A WRITE FILE 


HERE TO FINL tHE NEXT CHANNEL 
370 LOOK Ar, 
Ey CIX+CHL.EN) 
D, (IX+CHLEN+1 ) 
IX, DE 
CR4 . 


sHERE TO CREATE A NEW MICROURIVE CHANNEL 
HL, (PROG) 
HL 
HL 
BIT, CHANLN 
INSERT SCREATE SPACE FOR CHANHEL DATA AND SUFFER 
DE 3DE NOW POINTS 10 NEW CHANNEL 


DE SINITIALIZE THE CHANNEL LATA AND NAME 
HL» MGHOAT 
EC CHDORIV 


A» (DR+D_STR1) 
CLX+CHDRIV),A ;COPY GRIVE NUMBER 


BC, CHANLN SCORRECT THE POSITIONS OF THE NAMES 
IX 

HL 

RELNAM 


HL» LE 

BC, (DR+N_STRI) 
718 3 
NZ,CR1I2_5 


COPY NAME INTO DAIA 
TEST FUR A NUILL NAHE 


"Loc 


007D 
OO/7E 
OO8L 


OE 


OO8S 


0087 
0038? 
008A 
oOeB 
OOsI 


OOSE 
O09 1 
OOF2 
0093 
OOPS 
OOF? 


OOD 
oo?n 


OO9F 
OO0AZ 
OUA4 
OOASG 


QOA7 
OoAS 
OOF 
OOABR 


OOAL 
QOAF 


OOBZ 
QOOR4 
OOBS 
QOORS 
OOR? 
OOBA 
OoRT 
ootea 


Ook? 
oon4 
oOocs 
Oo 
OOH 
oocce 
Ooch 
Oona 
Oous 


oon 
oOouUs 


7E 
uD770E 
ze" 
n023 
Ok 
1SF 2 


DDE1 
Lp 
7c 
ES 
SOLE 


2A4F Sr 
ES 
2B 
o12000 


Et 


012000 
DLO? 


CbOOoO 
EFF 
04620 


ES 


77 


1OFC 
El 


DD7S1A 
DD7418 


LDES 
1 
111000 
19 

Ek 
210504 
OLOLO0 
ETO 


DUES 
El . 
113700 
o1aced 
1? 

ER 
210504 
EEO 


DDES 
El 


| EMSEME SC 


R 


CRI2_5 


ve 


we 


CRil 


we 


Hisur' 
OB! CODE M STMT SQURCE STATEMENT 


A» (HL) 


CIX+CHNAME),A 


AH 
NZ,CRI7 


HL,» (CHANS) 
HL 

HL 

BC. MAPLN 
INSERT 

HL 


BC, MAPLN 
1X, BC 


RELNAM 
A,OFFH 
BL MAPLN 
HL : 


CIX+CHMAP) »L 
CIX+CHMAP+1),H 


“IX 


HL 
CE. CHHOIR 
HL. ? DE 


HL, DE 


HL. P_UAMBL 
BC,PLEN 


IX 

HL 

DE, CHLIES 
BC, PLEN 
HL, DE 

HL, DE 

HL.» PLAMBL 


Ix 
Hl 
DI, (CHANS) 


FAGE 3 
ASM 5.9 


SNUW CHECK 1F MAP ALREADY EXISTS 


sNU..CREATE SFACE 


#CORREC?T THE NAMES AGAIN 


“SMARK MAP FULL 


PUT ADURESS IN CHANNEL LATA 


;SET UP PREAMBLE FOR HEADER 


iSET UP PREAMBLE FOR DESCRIPTOK 


sWOKK OUT CHANNEL NUMBER 


Lac 


oony 
ooODA 
oon 
Oonn 


OoneE 
OQOE L 
OO 4 
OOE'S 
QUF3 


OOE? 
OOEER 
OOLC 
OOEF 


OOF 2 
OOF 4 
QOOFS 
OOF’? 
OOF A 
OORT 
OOF [1 
O100 


0103 
O1dO4 
OL05 
OLO4 
O10A 
oon 


O10F 
Olle 
114 


O114S 
O11? 
OLIH 
o1ip 


OL1IF 
Ole2 
O13 


O1s4 
O127 
OLZA 
o1ec 


O12E 


OBJ CODE M STMT 


B7 
ELS2 
23 . 
Ce 


EME LA 
DuG&IB 
ES 

OuU7EL9 


ODES 

E1 
EDSB4ar SC 
7 


CO7FO3 


UGSA4FSC 
111400 
nui 


LUV EOO 
FEeO 


2518 


UII7ZEO4 
ETF 


DiS. 
NOS408 
DMA? 
ISEL 


o12000 


4&6 
4&7 
442 
Ab? 
470 
471 
472 


Do) 


a? 


Ay? 
S00 
S01 
S02 
SO3 
a4 
SOS 
bart On 
S07 
SOS 
nO? 
S10 
S11 
S12 
S13 
=414 
S15 
S14 
D17 
S13 
S19 
S20 
S21 
22 
523 


SOURCE STATEMENT 


we we 


HISUFT 


HL. DE 


SAND RETURN WITH IT IN HL 


SDELIX DOES THE OFPOSITE OF CREATE 
3THE CHANNEL NUMBER IS SPECIFIED BY HL 


3 


DELIX 


ve 


we 


DEL2 


we 


we 


OLOCAL 


PLUSH 
POP 
Lo 
OR 
SBC 
INC 
Lo 
CALL 


lL.» CIX+CHMAP) 
H, CLX+CHMAP+1) 
HL 

A> CIX+CHORIV) 
AF 


IX 

HL 

BC, CHANLN 
HELREC 


Ix 


HL 


(Wz. (CHANS ) 
A 

HL» DE 

HL. 

el CHANLN 
ADISTR 


AF 

HL. 

BLA 

IX; (HANS) 
De ? 20 

[X, OE 


Ay (IX+0) 
LOH 
Z, ELS 


A, CIX+CHTYPE) 
7FH 

ro 4 o 

NZ,HEL4 

A, (IX+CHIRIV) 
Bg 


Zz 
E, CIX+CHLEN) 
Ot, (1X+CHLEN+1 ) 


1X, DE 
DEL2 


BC, MAPLN 


7YES..GET MAP ADDRESS 
SAND URIVE NUMBER 


SDELETE CHANNEL 


SCHANNEL UFFSET REQUIRED IN HL 


SADJUST THE POINIERS IN STREAMS 


SNOW TAKE CARE GF THE MAF: 


SSTART OF IMPERMANENT CHANNELS 
51S THERE A CHANNEL 
sNO...MELETE MAP 


$YES..1S IT A MICROURIVE CHANNEL 


3NOQ..NEXT CHANNEL 
3YES..SAME DRIVE 


sYES..KEEP MAP! 


SNEXT CHANNEL 


3HERE IF MAP NOT USED ELSEWHERE 


01238 


OLSC 
o14d0 
0143 


O1446 
a14a 


o14c 
o140 


O14E 
O1s1 


O1S4 
OLS7 
OLE 
OLSH 


OLS 


OLSF 
OL140 
O163 
O1GSE 


O147 
O1LG9 
O146B 
Q1L4E 
O170 
O1171 


Mew COME M STMT 


ES 


cS 
om | 
tl 
COBIO2 R 
Cc? 


DOSAS 1 Sc 


214é01 R 342 


C30000 X S44 


S45 

S44 

S47 

S48 

m4 

S50 

area § 

saber 

Siu 

NOTRLB44 S84 
S802 SoS 
meds 

EE? S57 
on Ss 
bahay 

SL0 

LOSE OER B41 
ODS40C S62 
243 

DUGE4S 544 
TUe446 S45 
37 544 
Ens S67 
S63 

3313 bathed 
270 

3 a71 
On /30B S72 
D720 573 
18 74 
S75 

DOES 376 
uot? S77 
LDIVESZ S7g 
DDE L 79 
37 S30 
cy S31 


HISOFT 
SOURCE STATEMENT 


PUSH 
FLUSH 
OLDICAL 
Por 
PLP 
CALL 
RET 


# 
* MROCH 
+ 


we we ve we we 


THIS COME IS CALLEL A 
SCHARACTER BUT BECAUSE 
STREATS CONTROL CHARACTERS WE DO 
SAND RETURN (0 A MORE APFROFRIATE 


NRoOCH 


coe we 


+THIS FPROCEUURE 


7SPECIFIEG BY IX 
1S RETURNED 


3THE BYIE 
3THE CARRY FLAG 
3NZ & NC IF ENT 


MRLIIX 
HIT 
IR 


ary 


RST 
DEFR 


1 
Lo 


ue 


LD 
Lo 


ue 


ve 


we 


HL 
RI 
DELREC 
RC 
HL 
ALLIMAP 


IX, (CURCHL ) 
HL, MRDIX 

CHANGE 
READS 


IN A 


{3 


OF FILE 


WRFLG, CIX+CHELAG) 


Z. MRO 


SH_ERR 
OLIH 


E. (IX+CHBYTE) 
Dt. (IX+CHBYTE+1 ) 


L, (IX+RECLEN) 
H, CIX+RECLEN+1) 


HL» DE 
C,MRUZ 


DE 
CTX+UHBYTE).E 
CIX+CHBYTE+1),. 
ne 


IX 

IX, DE 

A, CIX+CHDATA) 
Ix 


SDELEIE IT! 


SADJIUST POINTERS TO MARS IN OTHER CHANNELS 


FREE AE TE AE HEHEHE SE AEE HEHE EAE HE EE IE EE EEE EEE EEE EEE HE HEE aE dae 


# 


FAIREST REE TEETER IR REE EERIE 


T OINFUT OR INKEY TO OBTAIN A SINGLE 
UF THE WAY THE CALLING 


FROCERURE 
THE LINE BUFFERING HERE 
PLACE IN THE INFUT CODE 


A BYTE FROM THE MICRODRIVE CHANNEL 


SET IF fHE DATA IS OK 


715 IT OPEN FOR READ 


3NO...READING FROM WRITE FILE 


$GET POINTER TO NEXT BYTE 
3IN RANGE © TO S11 


$GET LENGTH OF CURRENT BUFFER 


;COMPARE POINTER WITH LENGTH 


¢IF POINTER >= LENGTH THEN NEXT RECUR 


jELSE INCREMENT POINTER 


3GET BYTE ANU SET CARRY 


ee HIsoky PADE 


& 
Loc OBJ CODE M STMT SUURCE STATEMENT SM 5.9 
Se2 4 
Ses  MRiI2 
0172 DDCB434€ Sieg BIT 1, (LX+RECFLG) sWAS THIS THE LAST RECORD? 
O17& | BeO4 Sos JR Z> MRO 
O178 AF Sa XOR a SYES..CLEAR FLAGS AND RETURN 
O17? eon Se7 AnD A, OLH 
O17H CO S23 RET 
: oj , Sao 3 
$90 MRNS3 
OL7E 110000 | Sol Lo LE, O tNEW BLOCK. .NEW POINTERS 
OL7F — Dr730¢ ave Lo CIX+CHBY EE ; 
Ose Lo720c S93 Lu CIX+CHRYIE+L1),0 
Spa 4 
O1ss  ops4on Ses ING CIX+CHREC) NEW RECORD 
ey a 
0188 CLP101 R 597 CALL READIN sREAL THIS RECORI 
O1gB AF Ses XUOR A 
o1sc cooo0do xX SR9 CALL DRVSEL STURN OFF THE MOUTUR AFTER USE 
G00 ¢ 
O1L8F ISHU 4014 UR MIRE. 3AND GET THE BYTE AS BEFURE 
G02 3 
403 3 
404 SH HEH EH HE TE HE HE HEE HE HE SE aE SE EE SE EE HE SE SE FE EE HE SE FE JE SE SE SE ESE HE SE dE HE EE EE 
GOS 54 REACIN # 
& rey 9 TRH HEH: TE AE HE HE FEE HE HE HE ESE HE SE SE EE TE EE SEE HEHE EE IE HE JE ZEEE IE HE dE EE EEE GE 
bO7 3 
408 5 


GO? $THIS PROCEDURE REALS A RECORD FROM THE CURRENTLY SELECTEL DRIVE 
610 $THE RECORD IS IDENTIFIEO BY THE CHANNEL DATA AT 1X 

611 $THE PROCEWWRE MARES TRYS FASSES AROUND THE TAPE BEFORE GIVING UF 
612 SFATLURE fO FIND THE CORRECTELOCK WILL RESULT IN AN ERROR. 


413 3 

£14 READIN 
O19?) LO7EIS G15 Lo A, CIX+CHORIV) SSELECT THE DRIVE 
O1?4 CooOoOO X 416 CALL DRVSEL 

617 033 

61% READNC 
OLE7 OLFRO4 619 Lo BI, TRY S#HO_MAX 
O1LPA ED4SC9S0 $20 LOD CSECTURS ). BC 

621 RUN1 
OLPE COBFOL R 622 CALL RUNXT SREAQ THE NEXT DATA BLOCE 
O1Al : $22 JR C,RONS SNEXT SECTOR IF NO GOOD 
OLAS 624 JR 2, RDN sOR EMPTY 

625 3 
OLAS ONVE44 426 LD A, (C1X+RECNUM) 
OLAS QODBEOL 427 CP CIX+CHREC) _ 813 IT THE RIGHT NUMBER 
OLAB 2008 623 JR NZ,RON2 

é 629 3° 

O1Au DDES 430 PLUS Ix 
OLAF EL &3t Por HL 
OLEO 115200 432 LD LE, CHOATA 
OLR: 1? 622 AgO HL.» DE 
OLH4 COLG603 R 634 CALL Ech *YES....ERROR CHECK AND RETURN 
Q1R7 Cte 635 RET Z- 

634 RON2 
O1LRS COS203 R 637 CALL DECSEC 
OLBE 2068 1 G33 JR Nz, RON1I 

639 3 


Lac 


O18D 
OLBE 


OLBF 


OL? 


Ons 


Opa 
O1L9 
O1ce 


OPE 
O12 


O14 
OLO7 
OLA 
OLi 


O1LUO 
OLLIE 
OLEO 
O1E3 
OLE4 
OL1E7 
O1EA 


OLEC 


OLEE 
OUR 


OVO 
OLF I 


OLF2 


OB! CODE M STMT SOURCE STATEMENT 


E7 
di 


MU 4 


111B00 
19 


COOodOd 
COoE108 


Fyoniny 
Oe 


OL 4 S46 
2010 


DOES 
DOeG4ad 
E6oR 


ft 


DES 
E1 
114700 
i? 
OLoORadoD 
MOSES 
2 Oo4 


UL LF AFF 


R 


X 
R 


R 


640 
641 
642 
443 
&44 
45 
b46 


HISOFT 


RST 
CEFR 


SRUNXT READS 


+IN REALIN, 


SH_ERR 
QOL1H 


sFILE NOT FOUND 


NEXT DATA BLOCK ON A DRIVE Il 18 USED 


REAL AND OP ENF 


RETURNS (© TF THE RECORU WAS UNREADABLE OR WRONG NAME 
Z IF THE RECORD WAS EMFTY 
NC »NZ IF THE RECORD WAS REALABLE AND RIGHT NAME 


3 
R 


* 
2 


ve 


ve 


ve 


ve 


s 
7 


sSPECIFIED 


ONXT 


CALL 


LD 
Apbg 


CALL 
CALL 
JR 


BIT 
UR 


Lo 
CR 
AND 
RET 


BY DE 


WTHLK 


DE. CHUES-CHHUR 


HL, DE 


RENLE 
KCH 
NZ,RONX1 


©, CIX+RECFLG) 
NZ»RUNX1 


A, CIX+RECKLG) 
CIX+RECLEN+1 ) 


ZL 

IX 

HL 

DE.» RECNAM 
HL» fe 

BC, 190 
CPSTR 

NZ. RUNX1 


A, 0FFH 
A 


NB IT DOES NOT ERRUR CHECK THE DATA BLUCK 


sWAIT FOR & HEADER 


SREAL DATA BLOCK 
SCHECK THE DESCRIFTOR 
SCARRY FLAG IF NO Goon 


$15 IT REALLY A LESCRIFTOR 
SCARRY FLAG IF Nut 
315 IT FULL OR EOF 


sNC,Z IF EMPTY 


SHAS IT GOT THE SAME NAME 


SCARRY FLAG IF NQT 


SNCLNZ IF Goon 


sCARRY IF UNREADABLE OR WRONG 


: é 
HERE HEHTE HHL SE HEHE TERE HAE AE HE EEE FETE HE HEHE EEE HEE HE GEE ESE HEHE TE HE aE EGE 
BYTE OUTPUT 
FETE SE REE HEHEHE RE SEH RE ETE AE HE FE AEE AE SEE TE HE EE HE HEE AEE SE HEE EEE ETE EEE TEE 


# 


3(DE POINTS TO THE SECOND BYiE OF THE ALDRESS OF MWRCH IN 
3 THE CHANNEL DATA) 


MWRCH 


LD 


SPOINT £X AT THE CHANNEL 


1X,-6 


: . HISOFT PAG 


AGE 8 
= SOG OB! CODE M STMT SOURCE STATEMENT ALM 5.? 
O1LFS LoL? 693 AUL IX, 0k 
692 MWRIX : 
OLFS DOCBIS4& 700 BIT WRFLIG, (IX+CHFLAG) 315 IT OFEN FOR WRITE? 
O1FC 2008 7Ol ul NZ, MWRI 
7O2 3 
OLE. E?/ 703 RST SHUERK SNO...-WRITING TO REAL FILE 
OIFEF oc 704 DEF B OCH 
70S 3 
70& MWR1I 
g200 LOSEOB 707 LD E, CIX+CHBYTE) *GET PUINIER TO NEXT BYTE 
O203 NOS40C 708 LO O, CIX+CHBY fE+1) 
7O? 3 ; 
O26 DES 710 PUSH Ix SWRITE BYTE 
O208 noi? 711 Ann TX, De ; 
2O0A DN? 732 712 tp CIX+CHUATA).A 
o2on DDE 1 713 PoP Ix 
2 714° ¢ 
O2ZOF 13 Pe 715 INC DE SNEXT BYTE 
o210 D7 Sk 716 LD CIX+CHBYTE).E 
O21 RoO7 SOC 71V LD CIX+CHBYTE+1),0 
JAS 3 
O214 Ch4A 71? BIT 1,0 SRUPFERK FULL? 
O21 cs 720 RET 4 SSTILL SPACE SO RETURN 
721 3 
SEF ARSE HAE HEARSE RE HEE HE AEE AE SEE SESE GEE SE HEE HE EAE SEE TE HERE HE EEE HEE EAE 
72a 3H WRITE RECORD # 
PEE PRA AE TE HERE HE TEAR AE TE TEE TEE HEE SEE EE EE TERETE EE HEE SEE EEE IE EEE a 
25° 3 
VE 4 


727) $THIS PROCEUURE WRITES THE DATA BLOCK DESCRIBED BY THE CHANNEL 
728 sAT IX ONTO TAPE. 
2¥  $THE COME IS USED EY MWRCH AND CLOSEN 
720 SWRREC CALLS THE SUBROUTINE WRO THIS DOES MOST OF THE WORK 
731 3BUT LEAVES THE MOTION RUNNING. THIS SUBROUTINE CAN BE USED 
732 Ss INSTEAD GF WRREC BY SAVE IN UROGER 10 SPEED-UP THIS 
23 3 INSTRUCTION 


734° 3 
7a 3 
736 WRREC 
DOVEL? Lu A, (LX+CHURIV) 
x CALL DIRVSEL 
LL Be, 13000 SWAIT 100M3 FOR GOOL) CHANCE 
i Xx CALL OELEC sUP READING FIRST TIME 
cusno2z R CALL WRE 
AF YAS XOR A 
cHocea X 743 CALL DRVSEL 5 
ue 744 RET 
7A 3 
74 
747) WRC 
cos4o2 hk 746 CALL SPACE? 315 THERE ANY RUOGM ON THE MAF 
LOOP 749 JR NZ» MWRA 
CLLEOO R750 CALL NELIX 
AF 7a XUR A! 
O234 cuoae0d0 xX 752 CALL DRVSEL 
a23e? E7 75a RST SH_ERR 


O23 OF 754 DEFB OFH SHELETE CHANNEL AND “MICRODRIVE FULL * 


O23H 
o23n 


O22F 
Ou4as 
o245 
Oz47 
0249 


O248 
O4E 
orst 


o2Z54 


O27 


OLSA 


O2su 
O2SF 
O2460 
O263 
O264 


O67 
024A 
O24 


O26E 
oZ7o 
O27 1 


o274 


OL77 
OETA 
O270 


O2BO 
O282 


0290 
O2L91 
O2P2 


" HISOFT 


PAGE 9 
URS CONE M STMT SUURCE STATEMENT AEM 5.9 
786 MWR4& 
DUES 757 PLUSH 1X SMOVE NAME INTO DESCRIPTOR 
OL0A 752 Lo B10 
759 MWR2 
DO /ECE 740 Lp A> (LX+CHNAME ) 
DL7747 741 Lu CIX+RECNAM),A 
Dere3 M62 INC IX 
1OF6 763 [INZ MWR2 
DOEL 764 FOP IX 
765 3 
DID4EOR Thh Lop , (LX+CHBYTE) ;MOVE LENGTH INTO DESCRIPTOR 
m7. as T&T Lo (IX#RECLEN),C 
LOTEO 743 Lo Ay CIX#CHEYIE+L) 
L777 44 769 La (IX+RECLEN+1) 2A 
770 3 ; 
DO7EON 771 Lo Ay (IX+CHREC) MOVE RECORL NUMBER INTO DESCRIPTOR 
LLY 744 772 Lo CIX+RECNUM) » A 
7/304 
UES 774 PUSH IX SERROR ENCOUME DESCRIPTOR 
El 17S PoP HL 
114200 776 Lo DE, CHNES+PLEN 
17 ‘77 Ana ° HL» DE 
C6103 KR 778 CALL ECH 
779 3 
LLOFOO 780 Lo DE, CHDATA~CHUES—PLEN $s THEN DATA 
17 731 Ant HL» LIE 
CO6603 RK 722 CALL ECU 
7823 
LDS 724 PUSH 1X 
El 735i Pur HL. 
114700 784 Lo DE» RECNAM 
/27 4 
7ES 3 
729 MWR 
corso2 RR 7F0 CALL WREREE SWRITE THE BLOCK TO THE NEXT FREE 
7P1 3 
110000 792 Lo TE, © 3SET BYTE POINTER TO SIART AGAIN 
D7 S08 79% Lo (1X+CHBYTE),E 
DU7200 794 Lo CLUX+CHBYTE+1)>0 
FPS os 
po340u 796 INC CIX+#CHREC) 
Cc? 797 RET 
798 63 
729 4 
S00 $SPACE? CHECKS THE MAP TO SEE IF THERE IS A FREE BLOCK 
BOL SIT RETURNS THE ZERC FLAG IF THERE I3 NO SPACE 
Bon 3 ; 
£03 SPACE? 
MD4E1A 204 LD L. (LX+CHMAP) 
DIGI B BOS Lo H, (1X+CHMAP+1 ) 
0420 BOG LO Et MAPLN $TEST THE MAP TO SEE IF THORE IS ROWM 
B07 SP1 . 
FE 208 Lo Ay (HL) 
FEFF S09 cP * OFFH 
co S10 RET NZ 
22 aii INC Hl 
10F9 12 DINZ SPY 


AK S19 xar A 


HISOET PALE 10 


Loc |} =6OB CODE M SMT SCURCE STATEMENT ASM 5.9 
0274 fe RET 
; 
3 
SWREREE WRITES THE DATA BLOCK FOR THE CHANNEL POINIED Ta BY Lx 
SUNTO THE MEX? PREE SECTOR UM THE DISk 
3 
WRFREE 
DUES PUSH IX 3GET FOINTER TO DATA BLOLK 
—1 POP HL 
113700 Lo DE, CHUES 
1? Aon HL, DE 
Eo PUS HI. 
ovvD CHE4O2  R CALL WTHOR sWAIT FOK A HEALIEK 
O27A0 CIFO2 R CALL FREE? 31S IT MARKEU FREE? 
O2A3 OFS wR NZ.»WRFERO SNO...NEXT HEADER 
O2AS ES EX HL» (SR) SSAVE POINTER FOR LATER 
OZAL CS PUSH RC 
O27 IN A, (PORTE) 
OBA AND PROTECT $13 THE DRIVE WRITE PROTECTED? 
O2AE 008 UR HZ,WR11 
OZAL EZ RST SH_ERR 
O2AE OF DEF &t OH SMRIVE WRITE PROVECIED 
OZAF 242 Lu A, ERASE. ANU CTS. AND. SELL 
OzHt F 44 uuT (FORO) 2A SERASE UN TO TIOY UP LUNG BLOCKS 
O2E DLGROL B45 Lo Bit, GAFT3 SLEAVE- ON FOR 2.303 BEFURE WRITING 
O2E4 Cnoo00g xX 844 CALL OLA 
B47 3 . 
OZR? Lnoedg xX sae CALL WRELE SWRITE THE DATA 
Lo A, CTS. AND. SELL L 
CHIT (PORTO) A SNOT FURGETCING TO fURN OFF fHE ERASE 
3 % 
Ct POP BC ;NOW UPDATE THE Mar 
El PCr HL. 
72 Lo A,B ‘ 
BG oR (HL) 
77 LD (HLA 
e205 C9 RET 
3 HEHE SE HE SE HEE SESE HEE HEHE HEE HE HE SE HE HE HEE SE HE SE HE SE SE TEE SE JE HEHE EEE GE SEE SE EE EEE 
3# = CLOSE # 
PEPER HE EE HE HE HEHEHE aE IE HE SE SE HE HE SE SE SE SE HE AE SESE TE SEE EE EEE FE HEE HE EEE EEE EE 
7CLOSEN CLOSES THE MICROURIVE CHANNEL SPECIFIED BY HL 
CLOSEN ‘ 
O20& ES PUSH HL. e 
O2C7 DDE Por 1X 
CLOSIX 


o2097 DDCB1S46 BIT WRFLG, CIX+C:HFLAG) $15 It REAY OR WRITE? 


O2N4 


O207 


OLA 


ozDD 


O2DE 
O2LF 

2EO 
OSES 


Ozk4 
OOZES 
O27 
OZEA 
“OSER 
OZEE 
O2F 1 


ozF3 
O2F7 


O2F? 


O2FA 
O2FO 


OzFF 


HISOFT 


OKI COVE M STMT SOURCE STATEMENT 


2307 
DOCK 42CeE 
LOLeO2 
AF 
cbpoodd 


CLUELOO 


112500 
19 


CDEOOO 
UOE102 
ZOF 1 


DLICB2244 
23ER 


C9 


DDIE44 
1803 


DOSE2? 


R 


Xx 


R 


x 
R 


872 
373 
374 
S75 


B74 


O04 


POS 
POG 
907 
POS 
907 
910 
P11 
P12 
913 
PLA 


JR Z,CLOSE1 


SET 1, (1X+RECFLG) 
CALL WRREC 


PAGE 11 
ASM 5.9 


SREAD... DELETE CHANNEL 
SWRITE..MAKK DATA EOF 


7ANLD WRITE ONTU DISK 


? 
CLOSE1 
XOR A STURN OF ALL MOTORS 
CALL DRVSEL 
CALL DELIX ;DELETE CHANNEL 
5 
RET 
NERROR 
Fur HL. 
Lu A» (HL) 
LD (ERRONR) A 
RST ROHMERR 
5 
5 . 
SEITE AE SESE HEE SESE AE HE TE EEE EE HE HE EEE SEH EE GEE TEE HE HEE EEE EE 
s# UTILITIES + 
5 HIER TE HIE IEE HEHE HEE SE HE GE AEE SE PEE EGE ESE TEE AEE HE EE EEE AE SEE EE ESE 
SWTHItK WAITS FOR THE FIRST ERROR FREE HEADER BLOCK AND 
SREADS If INTO THE HEADER SUFFER IGfENTIFIED BY IX 
WTHOR 
FUSH IX 
FOP HL sPQINT TO HEAGIER BLOCK 
LO DE, CHHDR+PLEN 
ADL HL.» ne 
CALL ROHELKE sREAD A HEADER BLOCK 
CALL ECH 
JR NZ,WTHUR SREPEAT IF NO GUO 
; : 
BIT O, CIX+HDFLAG) $135 17 A HEANER BLOCK 
JR Z,WTHOR 
3 
RET 


sFREE? LOOKS AT THE HEADER BLOCK 


a¢ 
7. 


sDATA BLOCK IS FREE. 


FOINTELD 10 BY IX EXTRACTS THE 


SECTOR NUMBER AND CHECKS THE MAF TO SEE IF THE FULLOWING 


sTHE ZERO FLAG IS SET IF THE BLOCK [5 FREE 
sHL IS LEFT POINTING AT THE RELEVANT BYTE IN THE MAP 
3B IS LEFT CONTAINING THE RELEVANT BIT 


;LONE?Y DOES THE SAME AS FREE? BU 
SINSIEAD GF THE 2&CTOR NUMBER 


DONE? : 
LO E, CIX+RECNUM) 
UR FREEQ 

FREE? 
LD &, (IX+HDNUMB) . 


T USES THE RECORD NUMBEK 


$GET SECTOR NUMBER 


HISOFT FAGE 12 


Coc: OB! CODE M STMT SUUIRCE STATEMENT ASM 3.7 
O202 LIDSELA 930 LD L (1X+CHMAP ) 
O305 DDEG1B 931 LD | He CLX+#CHMAF +1 ) 
7 932 FREE1 . 
ar 9S XOR A 
a7 34 Lo LA 
7h 93S LI! ALE sHIVIDE #Y 8 RENAINDER IN A 
E4607 9346 AND 7 
CBSB 937 SRL E 
CRSB 933 SRL E 
CESB 939 SRL ae 
1? P40 AbD HL» De +DEAL WITH BYTE 
Al § 
OB14 47 eae Lo ELA 
OSL Cre 94S INC B 
O316 AF 244 XOR a) 
O317 37 945 SCF 
94& FREES 
17 247 RLA SSURT OUT BI 
1OFD DAS DuINZ FREES 
942 4 
OS1R 47 9aO LD ELA 
S31 3 
ag1C ALG 9E2 AND (HL) 315 I) FREE? 
o3iD Cy 932 RET 
S54 4 
P55 3MARK MARES THE CURRENT SECTOR FREE IN THE. MAF 
G4 § 
S57 MARK 
COFFO2 KR 952 CALL FREE? 
783 ey Lo A,B 
2F 260 CPL 
AS 961 ANU CHL) 
77 962 Lo (HL)»A 
Cy FoR “RET 
Vb  F 
945 slLisT? WOES THE SAME AS FREE? EXCEPT THAT IT WORKS ON THE LIS1 
966 30F BLOCKS IN THE CHANNEL DATA. 
PET § 
968 LIS? 
DDES Phe PUSH Ix 
El 97 POP HL 
115200 71 Lu Dit. SHDATA 
19 972 AnD HL» DE 
LOOSELY S73 Lu E, CIX+HONUMB ) 
1804 974 JR FREE 1 
975 § 
GIES 
977 «$DECSEC DECREMENTS AND TESTS (SECTOR) IT IS USED BY MANY 
973 sQF THE PROCEOURES WHICH HAVE TO LOUK AT ALL THE SECTURS 
7? 30N A DRIVE. 
VSO 5 
731 DECSEC 
EOFBC PSC PS2 Lo BOs (SECTOR) 
Ow FEB DEC BI 
ED43CY9SC gS4 Lo (Src rOR), BC 
73 gas LD A+B 
Bl GEG OR C 
Ce 987 RET 


Loc 


O3:3E 
S40 


0342 
O343 
O344 
0242 
O24 
O34 
O34 
o34n 
OS4F 
OBO 
O351 


ORS 
OBGU 
U346E 
O2GF 
O371 
0373 


OB! CODE M STMT 


DOES 
040A 


7E 
DUBEOE 
2016 
23 
DOSS 
Os 

on 
ZOFS 
73 

B7 


2508 


LD7EOE 
FEZO 
E2004 
DDS 
10F5 


DUEL 
co 


O10E00 


1803 
010002 


ES 
1E00 


7B 
84 
22 
CEO1 
2301 
2D 


923 
989 
220 
ic | 
WD 
POR 
994 
995 
996 
P97 
998 
oop 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1002 
1010 
1011 
1012 
1013 
1014 
1015 
1014 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
102 
1928 
1029 
1030 
10231 
1032 
1033 
10234 
1035 
1034 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 


HISOFT PAGE 13 


SOURCE SfATEMENT ASM 5.9 
’ 
sCPSTR COMPARES THE FILENAME AT CIX+CHNAME) W11H ; 
THE BC BYTES AT (HL). THE ZERO FLAG Is SET IF THERE IS 
7A MATCH. 
¢IF THERE ARE FEWER THAN 10 BYTES AT HL THE REST GF THE NANE 
SAT IX+CHNAME MUST BE SPACES 
’ ' 
CPSTR 
PUSH Ix 
LD 8,10 
CPS? 
LD A, (HL) 
cP (IT X+CHNAME.) 
JR NZ,CPS& 
INC HL. 
INC IX 
DEC B 
CEC Cc 
JR NZ,CPS9 
LO A,B 
OR Aa 310 BYTES? 
JR Z+ CPS 
CPS7 -_ 
LD Ay CIX+CHNAME ) 5NO...MAKE SURE THE REST ARE SPACES 
CF o o 
IR NZ,CPSS 
INC Ix 
DINZ CPS7 
CFrS38 
POP Ix 
RET 


7ECH AND ECU COMPARE AND COMPLITE THE CHECKSUMS FOR HEALER 
SAND DATA BLOCKS RESPECTIVELY 

STHE CHECKSUM IS COMPLNED SUM MoD 255 IT IS COMPAREU 

WITH THE BYTE AT THE ENG OF THE BLOCK ANO THE NEW CHECKSLIM 
31S STORED THERE. : 

‘THE SAME PROCEDURE CAN THEREFURE RE USED FOR CUMPUTING 
#AND CHECKING THE CHECK SHIM; 

$THE ZERO FLAG IS SET IF. THE CHECKSUM IS GogD 


. 
? 


ECH 
Lo BC) HD_LLEN-PLEN-1 
JR ECU! 
ECD . ‘ 
Lo BC, DLLEN-HD_LEN~1 
ECD! 
FUSH HL 
Lo. EO 
EcD2 
Lo ALE 
Aun A> CHL) 
, Ine HL 
‘auc Al 
JR Z,ECu3 
DEC A 
ECD3 : 


i 


HISOET PAGE 14 


Lac OBR! CODE M STMT SOURCE STATEMENT ASM 3.9 
O374 SF 1044 LD . EA 
O375 OB : 1047 DEC BC 
02376 7e °* 1948 LODO AH 
O27? Bi 1049 aR C 
OD7S ZOF 2 1050 AIR NZ,ECD2 

1051 3 
O37A 7B 1052 LD ALE 
037B BE 1053 CP (HL) 
037C va, 1054 Lu (HL),A 
0370 Et 1035 PUP HL 
O37b cy? 10546 RET 

1057) ¢ 

1052 ¢ 


1059 sALWISTR ADJUSTS THE FOINTERS IN THE STREAM LATA WHEN A 
1060 $CHANNEL I35 DELEPED 

1061) $THE OFFSET OF THE CHANNEL IS STORED IN HL THE 

1062 $LENGTH OF THE CHANNEL IS SfORED IN BC 

1063 $THE STREAM OPENED TO THE CLOSED CHANNEL IS RESET 


1064 3 
1065 ADJSTR 
ES 1044 PUSH HL. 
SE10 1047 Lo Ar16 
ZLL6SC 1068 LO - HL» STRMS+6 
1069 ADJ 
220iF5C 1070 LD (X_P TR) HL 
SE 1071 Lo E, (HL) 
23 1072 INC HL. 
54 1073 LD DB, (HL) 
E1 1074 PoP HL 
ES 107% PUSH HL 
H7 1074 CR A 
ensz 1077 SEC HL» DE sCOMPARE CHANNEL - POINTER 
2008 1073 JR NZ, ADU 
110000 1077 LD DE, Q sRESET STREAM IF EQUAL 
1807 logo . oR ALN4 
ost ADIZ cy 4 " 
ates SOOB , AOBZ yy, | MR | NC AD 3I1F POINTER EXCEEDS, CHANNEL 
z ER i LOR3 PRX | HL» DE P THEN REQUCE OFFSET | | 
H7. 1084 2 86 OR A wed 
ED42 1085 . SBC. HL» BC ote bey 
EB 1024 aa EX ey | a ; 
: 1087 aADU4 |} ; 
OscE  ZASFSC 1083 an ae ; HL» (X_PTR) 
O2AL 73 / 1089 ' on © CHL) 
0302 23 1090 INC | HL 
o2Aq 7a 1091 LD (HL). 0 
1092 ADJ2 
O2ZA4 = ZASFSC hc LD HL» (X_PTR) 
oat 22 10¥4 INC) HL 
O2Ag 23 1025 / INC HL. 
osay SL 1096 DEC A : 
ozaAa = Z019 1097) * JR NZ, ADS sNEXT STREAM 
O2AG  325F5C 1073 LD (X_PTR) 2A 
OZAF EI 1099 _ POP HL 
O3HO, CH 1100 . RET 


i ot 1101 3 | 
i 1102 sADUMAP ADJUSTS THE POINTERS TO MAPS IN MICROURIVE CHANNELS: 
po} 1203 SAFTER A MAP IS DELETED 


1 1 » 
fe, 


OSE 
OSE 4 
OSS 


O3HH 


O3BD 
o3CO 


O30 2 


he a 


OSD 
oO3ng 
OSLVS 
OSS 


O207 
OSL 
OSI 
OSD 
OspeEe 


O3E1 
OSES 
OSES 
OSES 
O3EA 


O3EC 
O3EE 
O3FO 
O3F 1 
OSF3 
O3FS 
O3F 7 
OSF? 
OBFA 
OSFC 
O3FE 
0400 
0402 
0404 


OBJ CODE M SINT 


OL12000 
DIA 4b Si 
111400 
Db? 


DO/EO4 
EG7F 
FE4L 
2014 


DOS LA 
DOS.1R 
EDS2 
SOOA 


ER 

7 
ENn42 
DUTS1A 
E7418 


El 
NOSES 


TIS 400 


noni? 
LBL 


osoao 
aZ0g 


3C01 
S202 
oO000 
oOo 

2020 
2020 
2020 
2020 
2020 
FF 


1104 
1105 
1104 
1107 
1103 
1109 
1110 
1111 
1112 
1112 
1114 
1115 
1114 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
112°? 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
11:37 
113¢ 
1137 
1140 
1141 
1142 
1143 
1144 
1145 
1144 
1147 
1148 
1149 
1150 
1151 
1152 
1152 
1154 
1155 
1156 
1157 
1153 
1159 
1160 
1161 


HISOFT 


SOURCE STATEMENT 


PAGE 15 
ASM 3.9 


sHL COINTAINS THE AVDRESS OF THE VELETED MAP 


AD IMAP 


ADJIM1 


ADJM2 


we ve we ve ve 


BC, MAPLN 

IX, (CHANS) 

nE,20 

IX, DE 3START AT IMPERMANENT CHANNELS 


A, (TX+0) 31S THERE A CHANNEL? 
S0OH 
Zz SRETURN IF ALL DONE 


HL 

As CIX+CHIYFE) 

7FH 

“M’ 315 IT A MICROORIVE CHANNEL 
NZ, ADIM2 


k, (IX+CHMAF ) ;YES...LODK AT MAF ADDRESS 

tt, (LX+CHMAF +1 ) 

HL, DE 

NC, ADIM2 sNEXT IF LESS THAN DELETED MAP 


HL» DE 
A 
HL, BC SAQIUST IF ABOVE 


’ CIX+CHMAP ) > L. 


CIX+CHMAF+1),H 


HL sNEX? CHANNEL 
EE» (IX+CHLEN) 

D, CIX+CHLEN+1 ) 

IX, DE 

ALMA 


FEE HE HEHE HE EH EE Ee HEE HECHANINE L466 4 dt dt 46 at 4 4 a 3 98 a at 


+THE FOLLOWING LATA IS USE AS INITIALIZATIUN DATA FUR MICRO 
sDRIVE CHANNEL INFORMATICIN 


? 

MCHDAT DEFW 
DEFW 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 
DEFR 
DEFW 
DEFW 
DEFW 
DEFW 
DEW 
DEFB 


3 sERROR ADURESS AS USED BY OLL WRCH 
Be) . SERRUR ADDRESS AS USED BY OLD RUCH 
“M°+S30H sCHANNEL TYPE...DEFAULT TEMPORARY 
MWRCH . SADDRESS USEO BY NEW WRCH 

MROCH SADDRESS USED BY NEW RDOCH 

CHANLN sLENGTH UF THIS CHANNEL LATA 

1) sCURRENT BYTE POINTER 

Q 3;CURRENT RECORD 

2020H SINITIAL NAME ALL SPACES 

2020H 

2020H 

2020H ; 

2020H 3 


OFFH s INITIALLY OPENED FUR WRITE 


9 


O40 
Ogu? 
0409 
0408 
040D 
O40F 
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Og! CODE M STMT SQURCE STATEMENT ASM 5.9 
1162 §THE FOLLOWING DATA IS USEL TO INITIALIZE THE PREAMBLE LIATA 
11462 3 
1144 P_AMBL 

O00 11465 DEFW Qo 

QO 1144 DEFW if) 

ooag 1147 DEFW QO 

ererer a 1143 DEFW Q 

0000 1149 DEFW 0 

FFFF 1170 DEFW OFFEFFH 


“Sr-nereeee ere pas 7 rere 


(0) 
Luc aay CODE M STMT 


UHSOF T 
SOURCE STATEMENT 


PAGE 1 
ASM 3.9 


3 FETE HEHE FE HEHEHE HE HE HE SE HE SE HE HE HE SE JE HEHEHE FE SE HE HE IE dE HE SE HE IE EE EE EEE IE a a HE aE 


34 

5% UHSOF YS. 
3# 26/4/83 
34 


# 
# 

+ 

H 


3 FETE TE HE GE SE HEHE HE HE HE FE HE HE HE HE HE HE TEE HE HE HE HE HE HE TE TE HEE IE HE HE ESE ETE HE HEHE HE HE EEE 


. 
? 


STHIS MODULE WILL CONTAIN HIGHER LEVEL SOF TWAKE FOR 1HE 


sMICROWRIVE. 


3THE PRUCEDURESS WITHIN THIS MOUULE RELATE TO THE KEYWORDS 


sMQVE, 
sLOAD, 


SAVE, LUAL, 


VERIFY AND MERGE 
VERIFY AND MERGE ARE MOSTLY TAKEN CARE OF IN 


TITANS SHUSAVE ANG SHUSAVE2 UNLY TWQ FRUCEGURES FOR GETING 


3A HEADER ANL! GETTING A DATA BLOCK 


sNEEDED 


? 
+ INCL NEWVAR. & 


1 


(GET 


—~HD ANI! GEILBL) ARE 


TERE HEHE FEE HE HE HEHE HE HEHE He HE SHE SE HE TE HEHE AE HE HEHE HE AE HE HEE SE SE SE HE EE HE SE HE EE HE EE SE EEE EE 


5 NEWVAR, & 
3% 29/4/83 


# 
. 


3 FEHR HEEHE HE HEHEHE AE HE HE HEHE TE TE HE ME TE ESE HE HE HEHE EAE TE TE HE SE HE HE HEE HEHE TE HEHE HE TE HE SE HE HE SEE HE HE HE 


? 


S HERE ETE SEE ESE HE HE TE ESE HEE HEHE SEE SESE HE IE HEE SE TEE HEHE ETE SESE HE HE EE EEE dE EE EE 
3 SYSTEM EMUATES , 
SPER AE EEE HE TEE HE HE HE HE SE HE TE HEE SEE FE SEE HEHE HEHE HEE dE HEE HE SEE SEE HE SEE SESE EE SE EE: 


3 

FORTC Eu 
FORTD Eau 
3 

SELU EG 
SELC Eu 
WRITE Btw 
ERASE Eu 
crs EQu 
3 

SYNC EGU 
FROTECT 

BAF Et 
BLISY EQu 
PLEN Eau 
HOLLEN EQU 
D_LLEN EQU 
HD_LMAX ECHL 
TRYS Equ 
GAPT3 EQu 
GAPT1 Eau 
GAPT2 EQU 


QOEFH 
OE7H 


OFEH 
OFDH 


2 
EE” 1 
4 
1 


12 
PLEN+1L4+41 
HULLEN+512+1 


255 
340 
GAPT3+/4 


* 


B21 


SUDRIVE 
sDATA F 


SDRIVE 
sORIVE 


. SWRITE 


SERASE 
3 CLEAR 


sSYNC B 


SGAP SI 


3LENGTH 


s;LENGIH 
sLENGTH 


@ 


# 


CONTROL/STATUS PORT 
ORT ALURESS 


SELECT DATA 
SELECT CLOCK 
CURRENT UN 
CURRENT ON 

TO SENU OUTFUT 


YTE DETECIEL SIGNAL 

SWRIVTE PROPFECT SIGNAL 
GNAL . 

MF PREAMBLE 

OF HEAGER BLOCK PLUS PREAMBLE 
OF LATA BLOCK ; 


SNUMNBER OF BLOCKS CN TAFE 

SNUMBER OF TRIPS ROUND TAPE 
sHEFORE GIVING UP 

3THE DEC BC DELAY BETWEEN REALING 
SA HEAQER, CORRECTING If, res PING 
3IF FREE AND WRITING A DATA BLOCK 
STHE DEC BC DELAY BE PWceN WRITING 
3A HEAVER BLOCK ANI! WRITING A 
SDATA BLOCK 

$THE VEC BC DELAY BEIWEEN ENI! UF 
7A DAIA BLOCK AND BEGINNING OF 
SHEALERK BLUCK 

STHE DEC BC DELAY IS 26 T-SIAVES 


Loc OB CODE M STMT 


so 


UHSOF T PANE 2 
SQURCE STATEMENT ASM 3.9 


sOR 7, 4Us 
3THE ABOVE TIMINGS ARE HOPEFULLY 
3FUR A HEADER OF LENGTH S40US, FOLLOWED BY A GAF OF 3.04N5,. FOLLOWED 
SEY THE BATA BLK LENGTH 21.°3MS,FOLLOWED ey A GAP OF SNS. 


. 


ERROK Eau & fERROR HANULING IN ROM 

INSERT EW 1655H MARE SPACE IN RUM 

DELREC EQU 19b.3H SDELETE SPACE IN ROM 

CHANS Ewu 234631 SADDKESS OF CHANNEL DATA 

STKENT EQU 236253 SANURESS OF START OF SFARE SPACE 
SVREOT EQu : : 

MEM Eu 


SELECT Eau 
SENDTV EWU 
OUTCH EQu 
INCH Eu 


sCHANNEL SELECT SUR. IN OLD ROM 
s1V OUTPUT PROCEDURE 

SCHANNEL GUTPUT ROUTINE 
SCHANNEL INPUT ROUTINE 


SHADOW ROM SYSTEM VARIABLES 


SESE TERETE HEHE HE TE HE FETE SE HEHE TE TEE FEE ETE AE HEHE PE HE SE HE HE FEE HEHEHE TEE HE SEE FETE SE IEE AE SEE SEE HE HEHE SE EH aE JE HE HE AE dE JE HE 


we se we we we ve 


5 SYSTEM RESTARTS 


R_BASE& EAU OOOOH 
ENTRY? Ett) QOOSH 
CALBAS: Et OO10H 


SYNTS Euu Q01SH 
SHUERR? EQU OO2O0H 
ROMERR: Ell OO2SH 
INSERK EGU OO30H 
MASK EAU OOSSH 


BASE KOM ADURESSES 


we 


LASIK FQuU SCOSH 
DEFAOD EGU SlonH 
STRMS EGU SCLOH 
Y EO Scce 
EBERRON EU S03AH 
FLAGS Eu SiSeH 

TV_FLAG EQU SC3CH 
ERRUSP Ew Re 
NEWFPI Etil 
NEFPC EGU 5 
PRU Eau Sc 
SUBPFO Et § 
KORDCR EOL S 
VARS EQU SC4EH 
CHANS. EAU SC4FH 
CURCHL EQU SCSiH 
PROG EQU SCS2H 
DATARD EQU SCS/H 
E_LINE &@U) SCSYH 
CHADD EWU SCSOH 


PAGE 3 
ASM 5.9 


FETE TE ETE HE HE HEHE TE HE HE SE HEHE HEE HE HE HEHE HE HE FE HEHE EEE SEE SE HE SE EERE RE AEE EH 


sy 


REE HE TEE ESE HE HEE HE HEHE HEE HEHE AE HE HE AE HE SE HEE HE EEE EH HE EE SE TE HE HEE EEE AE HE HEE 


IMMELNLAITELY AFTER THE SYSTEM VARLABLES 


16 + THE SPACE £5 CREATED WHEN THE SHADGW RUM (5S FIRST CALLED 


faa ” WHS 
Loc QB! COLE M STMT SUURCE STATEMENT 

117 X_PTK Eau Sc SFH 
118 FLAGS2 EWU Sc4AaH 
11° FLAGX Eau S071H 
12000 LG ECW fal 7k 
121 SCRCT Emu 
22 ATTR-P Eu ! 
123 ATTR.T Eau 
124 PLFLAG Euu s 
125 OR EQU SCHSH 
124 
127 
123 
lay 63 
130 43% 
131 3% FIXED MICRODRIVE LATA 
132 3% 
133 «(3 
134 3 
135 $THIS FIXENM LATA IS FOUND 
137 
138—FLAGS3 Eau LIK 23734 
134 
140 
141 
142 
143 
144 
145 
144 XR Eau 7) 
147 VECTOR EGU O1H 
143 SERT EQ! VELTOR+O2H  $237:37 
14" HL EWU See T+01H 
150° 0 ZILCH CW Sun +04H 
151 BAUD EMU SHAT +0A8H 
132 NIFSTAT EGU BAULI+O“2H 
13% 1OBORD EQU NiSTAT+O01H 
134 SERLFL EWU TUORURDHOLH 
155 SEND OF DEFAULT $s 

” 154 
157 . 
153 SSTART OF WARTABLS 


1z9 SECTOR 
140) CHALID. 
141 NIRESP 
142 

163 

144 ‘ NTOEST 
165 NTSRCE 
144 NTNUMB 
147 NTTYPE 
1643 NTLEN 

149 NTbCS 

170) NIHCS 


171 
172 
173—D_STR1 
174 S_STR1 


EQUI 
EG 
EQS 


Eutlt 
Eau 
Eutu 
BOW 
Eau 
Ela 
Buu 


Eau 
Eau 


SERLFLAOZH+UR 
SEC TOR+O2H-UR 


CHADD +02H 


;THE EIGHT LOCATIONS FOR 


NIRESP+O1H 
NTMEST+01H 
NTSRCE+O1H 
NTNUMB+02H 
NTTYFE+O1H 
NTLEN+O1H 

NTHCS+01H 


329757 


323758 


sHII O 1... RECURSLON 


SEIT 1 2... AUTO RUN 
3BIT 2... HOOK 

SBIT B ... NEM/RSZS2 
$817 4... LoAn 

BIT 5S ... SAVE 

$BIT 6 ... MERGE. 
SBIf 7 1... VERIFY 


s INDICATES VERIFY NUT LOAU 
sNEW COMMAND VECTOR POINT 
SSTART OF CALBAS SUBRUUTINE 


RATE FOR RS232 
“TWN * STATION NUMBER 
BURDER COLOUR FOR 1/0 
SE REnb INFUT FLAG & SORA TE 


i ws us ve ws 


SMICRODRIVE SECTOR 
STEMPORARY SickeE FOR CHADD 
RE FOR RESPONSE CODE 


we 
ay 
+ 
= 


SUINAVNIGN STATIUN NUMBER 
3S OURCE 
S BLOCK NUMBER 

s°DATA’ (0) OR “CLOSE’ 
SQATA BLOCK LENGTH 
SDATA CHECKSUM 

SHEARER CHECKSUM 


A N&t HEADER 
DE 
= STATION NUMBER 


(1) TYPE CODE 


3THE SIXTEEN LOCATIONS FOR PARAMETER COLLECTION 


NTHOS+01H 
D_STR1+02H 


7hb 
#247468 


s1WO BYTE NUMBER 
SSTREAM NUMBER 


; UHSUFT PAGE 4 
Lac CRI CODE M STMT SOURCE STATEMENT ASM 5.2 


175—L_SiRi EGU DUSTRitOSH 3237469 SLETVER 
: 174—N_STR1L «EGU DUSTR1+04H = 323770 SNAME DETAILS (LENGTH & START) 
177 DUStR2 EWU DLSTRIFOSH $23774 3 ## SECOND SET 2+ 
173 S8_STR2 EQU DUSTKI+OAH 323776 
17? L_STR2 EQU DLSTRI+0BH 323777 
180 N_STR2 EQU DUSTRI+0CH 323778 
are 161 
{ 182 : 
1@3~—SC_00 EGU DUSTRI+OGH 323774 $SECUND SET FUR SCANN 


184—sC_0B8 Euul DUSPRL+FOPH §237/5 
1E5— S500 EQU TLSTRI+OBH  $23777 


4 SC_LOF Eu OSTR1I+OLH 23779 
187 
188 
18¢ + THE NINE LOCATIONS FUR “SAVE“, “LOAD” ETC. 
170—HiL_OO EGU OLStRI+10H F23782 STYFE Cooke 
191— HU_OB Eau HO_OO+01H 323723 sLENGTH OF BLOCK 
192 HD_oc EGU HDLOK+01H 323/54 
193—H0_OD EQU HOLOC+O1H 3223735 sSiART OF BLOCK 
174 HO_OE EWU HOLOnD+OLH 323736 
HU_OF EQU HULOE+01H $ 23737 sSPROGRAM LENGTH 
HO_10 EGU HDLOF+O1H $23783 
HuUL11 EAU HD_1O+01H $23739 sLINE NUMBER 
HDL EQU HDL11+01H $23790 
COPIES EAU HDOLLS+1 323791 
ROMALDU EAL! HU1O0+01H $23729 sPASSING ADDRESS FOR HOUKS 
DR-LEN EGU CORIES+O1H 
N_LEN EEUU O114H SLENGTH OF A NET BLIFFER 


3 RS232 PORT DETAILS 


RS232 E@Qut OF 7H SSERIAL DATA PURT 
EBLUPT EWU OFEH SREYROARD FURT 
STATUS EAU OEFH SSERIAL STATUS PORT 


uIR EGU OSH SMASK FUR OTR UUTPUT 
s NET PORT VETAILS 

SERIAL Ell OF 7H SSERIAL DATA PORT 

WAIT EGU OEFH SWATT PORT 


ve we 


SHEE TEETER ETE HOHE HEHE EH HE HEHE IE HE HEE HE SEE HE HEHE AE HE HEE HEHE SE TE HE EE HEHE HE HE SE HE HEHEHE 
5% MACROS : + 
SHEE IEEE EHH EEE FE HE ESE HEE ESE FEE EEE EE EEE EEE HEE EHH EE EE 


oP ae dis? § . 

2246 RST MACRO ALOR STHIS MACRO WILL BE USED TO FLAG 
227 RST JALIIIR : SCALLS TQ THE ROM WHEN THIS S/WARE 
225 _ ENUM 31S CONVERTED TO SHALOW ROM FORM. 
B29 3 

230 ASSERT MACRU #0NL 

231 COND .NOT. (#COND) 

232 HabeHHBHEHERROR IN ASSERTION #COND 


UHSOFT PAGE = 5 
Loc) OBJ COLE M STMT SOUKCE STATEMENT ASM 5.9 
ENDC 
ENUM 
‘ ; . 
OLOCAL MACRO #5IIL 
RST CALEAS 
LEFW HUB 
ENUM 
; 
OLLJP =MACRO  #DEST 
JP #DES 
ENUM 
FEE HEHE HEHE HE HEHEHE SE HEHE SE HE SE HE AE TEE HEHEHE SE ESE AE HEHEHE EE GE EEE EE aE EE EE 
* DATA * 
HEH RE HEHEHE AE HE HE HE HE SE HE EE HE SE SE HEHE ETE HE EE HEE ESE EEE SE EE EE IEEE EGE 


FETE HH HE HE HE HEE SEE HE HEE Ht HI HANINE LL 40 EE EE a a a de 


THE FOLLOWING DATA IS CREATE“L FOR EVERY OPEN MICROWRIVE FILE 


ve we ve we we vs ws ve ve we we we we ws ve 


SOLD WRCH ALWRESS POINTS 
SOLO ROCH ADDRESS FOINTS 
CHIYFE Emu 4 


AND SOQMENIMES FOR A WORKSPACE IN MICROMRIVE UFERATIONS 


10 O00g 
Ta 0008 
sCHANNEL TYPE 


;NEW WRCH ADDRESS 
sNEW RDCH ALIIRESS 


SLENGTH OF THIS CHANNEL DATA 
SCURRENT BYTE FUINTER 
SCURRENT RECURD 
$10 BYIE FILE NAME 
sCHANNEL FLAGS 


SWRITE FLAG BIT 


sLIRIVE NUMBER 0-7 

SALWDRESS UF DRIVE MAP FUR 'fHIS FILE 
;S1ART OF HEALIER 

sFLAG BYTE AT START OF HEADER (BITO=1) 

3NUMBER OF CURRENY HEAUER/SECTOR 

SFOLLOWED BY TWO EMNPIY @&YTES 

3 TAPE NAME 

HEADER CHECKSUM 


SSTAR1 OF DESCKIPTOR 
3PLAG BYTE IN DESCRIFTOR (BTTO=0) 
SBIT 1 = EOQt 
3;BIT 2 = SLVM 
SNUMBER UF THIS RECORD 
SLENGTH UF THIS RECORD 
SNAME OF THIS REUVORD 


CHLEN Eau CHTYFE+S 
CHRYTE EGU CHLEN+2 * 
CHREC EAU CHEYTE+2 
CHNAME  Etil CHREC+1 
CHFLAG EQU CHNAME+10 
5 

WRFLG Et Q 

i 

CHURIV EGU CHFLAG+1 
CHMAP EGU CHORTV+1 

3 

CHHDR En CHMAF+2 
HUFLAG EWU CHHOR+FLEN 
HONUMH EGU HUFLAG+1 
HUNAME EC HUNUME+3 
HOCHE EGU HIINAME+10 
3 

sTOTAL LENGTH OF THE ABOVE FLEN + 15 
3 

CHDES Eau HUICHE + 1 
RECFLG EGU CHOES+PLEN 
RECNUM En RECFLG+1 
RECLEN EGU RECNUM+1 
RECNAM EQU RECLEN+2 


UHSOFT FALE & 


Loc OBJ CODE M SIMT SUWRCE STATEMENT ASM S.? 
DESCHK EGU RECNAM+10 SDESCRIPTOR CHECKSUM 
CHUATA EQuU DE SCHE+ 1 SSTART OF DATA BLOCK 
DCHK Eau CHDATATS12 PLATA CHECK SLIM 
CHANLN EAU DHE + 1 ?LENGTH GF ALL THIS 


we 


Hy EERE HEE EEE HEHEHE SEE EAP EE ESE SE EEE HEE EEE EE aE SE EEE 


ww 


$A MICROURIVE MAP IS A BIT MAP OF ALL SECTOKS ON &é MICROURIVE 
STHE BITS ARE COUNTED FROM O TO HDOUMAX-1 FHE LENGTH 
30F THE MAP IS THEREFORE GIVEN HYs- 


? 
MAFLN Eau 32 
3 


$THE MAP IS CREATE“ FOR EVERY DRIVE CUNTAINING AN OPEN FILE 


tLIsy CN 


GLOBAL MOVE, SAVE, GET HEL GETMBL 


GLOBAL RELNAM 
? 
EXTERNAL. OPENN, OFENF , FORMAT, CATN 3 VHSOF) 
EXTERNAL ERA, MANY? 
EXTERNAL CREATE, Dt. X» NERROR, FREE?, ChSTR SHISOFT 
EXTERNAL DeCSEC, SEALING WHHDR, LOST? 
EXTERNAL MWRITH, MRDWCH, DECSEC, SPACE? 
EXTERNAL EICH, ECD, WRF REE, MARK 
EXTERNAL MRUIX,MWRIX, CLOSIX, WAI 
EX PERNAL RONX T " 
EXTERNAL ROHBLE ROBLE WRHELE» WRELE sDRIVES 
EXTERNAL URV SEL. BREAK? 
EXTERNAL HEX.OF, 01510, OFHEX, DISMAP 7 BLOCKS 
EXTERNAL NIEMPs (N_EYT, INLBYP, WUT LN, OUT_T2, JELTMP, DELBC 
EXTERNAL NTCLSé 
EX FERNAL OTT, OFENT 
EXTERNAL. DUNE? 


sMOVE 1S CALLEL) IN RESPONSE TO THE COMMAND MCIVE SOURCE TO DESTINATION 
PSHURCE AND DESTINATION MAY EITHER BE STREAMS, MICRODRIVE 

FILENAMES, NETWORK CHANNELS OR RS232 CHANNELS 

31F A FILENAME THE FILE 15 OPENED AND CLOSED Hy MOVE 

31F A STREAM IT IS LEF1 UREN AFTER USE TO ALLOW APPENUING TO A FILE 


THE SOURCE IS SPECIFIED BY STR1 ANU) DESTINATION BY STRZ 


OVE - 
0000 FIICB7CES SE1 4, CIY+FLAGS3-Y ) TELLS CHANGE THAT WE ARE NUT INKEY$ 
O004 MOS4OO R CALL MOF SOPEN THE SOURCE 
O007 SA4F at LO HL. (CHANS) 
OOO ES FUSH HL 
OOOH COD4O R 1 CALL EXCH FEXCHANGE SOURCE AND DESTINATION SPECS 
OOOH CO FO RO S42 CALL Mur TOPEN THE DESTINATION 
OOLY CONSOO RO 343 CALL EXIQH 
OoO14 Dt 344 POP DE , é 
OOLS SA4FSC 345 ‘LO HL» (CHANS) TRELOCATE THE SOURCE ADURESS 
OO1S 7 246 OR A 3TF A MAP HAS BEEN INTRUWUCED 
OO1LD EDS2 347 SEC HL.» LE 


OO1R EOS on DAS 348 Lu DE, (DR+NUSTRI) 


Loc 


OOF 
oa20 


OOL3 
OOLA 


a02z9 
002 
OO2ZE 


ag3O 


CB! CODE M STMT 


1? 
22DA5C 


ZATIASC 


oes 9 ey 
225 1 Stl 


OOss 
Q03B 


O02T 
Oo4l. 
Cray eh 
oo4s 
Oo04s 
OO4K 
OOAE 


OOS 
OOS 
OOs? 
OOsA 
OOSL 
O06 
00463 


O0G4 
OO67 
O0G3 


OO6A 
OOGE 
OO46E 
oo71 
0074 


OO7%D 
OOFE 
OO7A 


OO7I 
OO7F 
Oso 
OOS 
0087 
OVER 


FOCH/CAG 
SA4E Sat 

Eta 

LOW400 R 
COESOO R 
COD60O R 
ot 

ZA4AP TIS 

£7 

EDS 2 
LOSADASC 
1? 

Z22DAaC 
CORSOO K 
Cnooag xX 
Cc? 


BALES 


rN 
Suc 


SAS 130 
22DASC 
Cy 


ALP EC 
FEAD 
2O12 


Cnooo0g xX 
AF 

cnoood xX 
Doe 2DASC 
LIUCB4:356 
cs 


349 
350 
351 


as2 
353 
35 

355 
354 
357 
358 


359 


B40 
B41 
362 
343 


5-5 -o 


G98 
Uswne Sa 


Oa 
NO 


> 
2 
Past 


MOVO 


MuV1 


MOVS 


ve 


MOV? 


Sve we vs 


we 


MOP 1 


ve 


UHSOF T 
SQURCE STATEMENT 


ALD 
LD 


LD 
LD 


OLLICAL. 
IR 
IR 
JR 


LO 


ae 


LOCAL 
JR 


RES 
LD 
PUSH 
MALL 
CALL 
CALL 
FOP 


Lp 
INC 
AR 


DEC 
CLOCAL 


HL, DE 
(DR+NSTR1)» HL 


HLs (OR+NOSTRI) 
CCURCHL ) > HL 


INCH 
C,»MuUVS 
Z,MOV1 
Mave 


HL (DR+N_STR2) 
CCUREHL >» HL 


OUTCH 
MOVO 


4, CLY+FLAGSS-Y) 
HL, (CHANS ) 

HL 

EXCH 

Mac 

EXCH 

NE 

HL, (CHANS ) 

A 

HL, LE 

QE, (OR+N IS 6R1) 
HL» VE 
(CDOR+NUSIR1) HL 
Moc 

DEL fMP 


A, (DR+S_STR1 ) 
A 
Z,MOFL 


A 

SELECT 

HL» (CURCHL ) 
COR+N SPR1),HL 


A» (DR+L STR) 
“Me 
NZ,MOP2 


OFVENF 

A 

URVSEL 
(UIR+NUSTR1),1X 
ay CIX+RECFLG) 
Z 


FAGE 7 
AEM 3.9 


3YES..TRY TO GET A CHARACTER 


3TRY AGAIN 
s0R Eur 


;SEND THE CHARACTER 


SCLOSE THE VESTINALION FIRS 


SRELOCATE THE SOURCE ALIDRESS 
3IF A MAP HAS BEEN HELETED 


31S IT A STREAM 


sYES...SELECT 1T 


$WHICH LETTER 


SOPEN MICRODRIVE 
SENABLE INIERUPTS 


31S IT AN SLVM FILE 


: UHSOF T PAGE 8 


Lac OB! CODE M STMT SUURCE STATEMENT ASM §.9 
Oost E? 407 RST - SH_ERKR 3NO...WRONG FILE TYPE 
oon 14 408 : PEFR 14H 

40? MUF2 
OOSE FE4E 410 CP “NO sNE? 
aang S008 411 UR NZ,.MOPS 
412 3 
0072 cCnoeede X 413 CALL NTEMP 
0095 DoSZ2DAsc 414 LD (DR+N_STR1). IX 
Qo99 Cc? 41s RET 
414 MOPS 
OO A FES 417 CP et sCHECK THAT IT 1S RS: 
Ooo B04 41¢ JR Z.NOF4 
OOCE FE42 41> cr “Ro 
OOAD BL02 420 JR. Z,MOP4 
4213 
OO82 — E7 : 22 RST SH_ERKR SOTHERWISE NONSENSE 1N BASIC 
QOAZ ere) 423 LEFB Qa 
424 — a a 
~~, 2. he 425 MOrP4 
OON4 X 424 CALL OP ENT SCREATE AN R232 CHANNEL ANL SAVE ALWIRESS 
OUAT 427 Lo COR+N_USTR1). DE 
OOAB 0S 2S FUSH DE 
QOAL DDE! 429 FOP Ix 
OORE DOCKHO4F 430 SET 72 CIX+CHTYPE ) SMAREK IT TEMPORARY FOR DELTMP 
OOR? Cy 431. RET 
432 § 
433 3 
Za 3 
435 moc 
OOR3 SADSSC 436 Lh A, (DR+S_STR1) 51S IT A STREAH 
QORS ae 437 INC A 
OOK7 ZO 43% RET NZ 3YES...JUST RETURN 
ASD 3 
OO SANS SC 440 LD A, (DR+L_STR1) 
QOOBER FE4D 441 cP “MM 
OORD BOO 442 JR N2,t0r1 
442 3 
QORF DOSADASH 444 Lo IX, (OK+N USTRI1) 
oor CHooOag X 445 CALL MLS X SCLOSE MICROURIVE 
OOS ecg 444 RET 
: 447 Mutt 
Fi4k 442 CP “NO : 
Le) 449 RET NZ SRETURN IF NOT NET 

: 450° 5 
OOrA DUSATIASI 451 LD IX, (UR+N_STR1) 

OOCE nS 1 SC 4352 LD CCLIRCHL ), IX 
oouL2 CloOoeO X 453 CALL NTCLSE 
oons cp : 454 ‘ RET 

455 3 

454  3$ 

457 3 

453 3 


437 EXCH SWAPS THE SPECIFICATIONS OF SOURCE AND LESTINAST LOINS 
4640 $IN STR1 AND STR2 


441 3 

442 EXCH 
OOU6 11065¢ 463 LD D&,UR+D_STR1 
Oot Z21IDESC 464 Lo HL.» OR+O_STR2 


. UH SOF T PAGE 9 
Lac OBJ COLE M STMT SQURCE STATEMENT 3M 5.9 
oonc 0408 445 Lu H,8 
446 EXCHI 
OOLE 1A ° 447 LD A> (LIE) 
VOD 4E 468 Lu i, (HL) 
OOO ER 44? EX HL.2 WE 
Ookl 71 470 Lo CHL) tt ' 
OOEZ 2 471 LD (ME),A 
ONES ER 4/2 EX HL.» ne 
OOR4 23 473 INC HL. 
OOES iz 474 INC DE 
OOKRSG 1OF4 ATS DAINZ EXIttH1L 
QOOES Co 47% RET 
477 ¢ 
472 3 
472 $SAVE OPENS A TEMPORARY MICROURIVE BUFFER FOR THE. FILE SPECIFIED 
450 $8Y STRI. IT THEN COPIES THE HEAQER DATA AT DR+HDLOO ETC AND 
431 $THE DATA SFECILIEL INTO BUFFERS ANU WRITES THEM USING WRL 
432 $A SUBRUWTINE UF WRREC WHICH LEAVES THE MOORS SFINNING 
423 3 
424 31F (DRtCOPIES) IS NOT EGUAL TO 1 THEN MORE COPIES WILL BE MADE 
425 $WITHOUT REQPENING THE FILE. 
QBS ¢ 
4E7 3 
433 $3 ???PTMAY HAVE TO ADL) A DELAY AFTER WRITING THE FIRST BLUCK 
4s? $3S0 THAT LOAD LOES NUT MISS THE SECOND 
490 SAVE : 
OOEY SAUIZ Su. 47i LO A, (OR+L STR) SCHECK WRITE PROTECT FIRST 
QOEC choooo X 492 CALL ORVSEL 
QURF DEF 493 IN A, (PORTC ) 
OOF 1 E4O1 474 AND PROTECT 
QOF3 2002 4Ps dK » NZ,SAVEO 
OOFS K7 4I& RST SH_ERR SDRIVE WRITE PROTECTED 
OOFL OE — 497 DEFR OEH 
473 SAVEO . 
OOF 7 EL Ae? Lo HL, COR+HL_ ON) 
QOFA BSE AS S00 LO COR+NS PRe4+2)5HbL SPUT BLOCK ADDR. IN X_PIR SO IT IS RELUCATED 
OoFD COVA X Sod CALL OPE NF SOPEN THE FILE 
S02 
O100 DUCBR L4G 503 HIT WKELG, CIX+CHFLAG) $15 IT OPEN FOR WRITE 
O104 2008 , S04 JR NZ. SAVE1 
O106 Cnooood X SoS TALL MLS IX 
a1o09 E? S046 RST SHUERR 3NQ...ERROR 
O1L08 On 507 DEFR OH SWRITING TO REA FILE 
uo SAVEL 
O1OK DLICR4 3nd So? SET 2, CIX+KECFLG) SMARK THE FILE AS SLVM 
OLOF no7EL? S10 LO A, CIX+CHDRIV) ‘ 
O112 Cnooag X S11 CALL DRVSEL 
O115 Qwes S12 Pus IX 
O117 El S13 POP HL 
o118 115200 314 Lo HE, CHLIATA 
OL1B 1? S15 anu HL» De , ; 
o11c ER 514 EX HL, DE ?MOVE THE HEAVERK DATA IN TO THE BUFFER 
o1in 2IE4?SC 517 LO , HL, OR+HD_OO 
0120 010700 S18 ; Lu BL, ? 
O123 L710B S19 ‘ Lp CIX+CHBYTE),C 
O1246 EDHO 520 LDIR 
221 


O12e DS S22 | “PUSH LIE 


: UHSOF T 
Lac = OB CODE M STMT SOURCE STATEMENT 


PAGE 10 
ASM 5.9 


Lise 10700 Lu HL? tCHEGK IF THERE I8 ENCIJGH SPACE GN 
oO1ec ED4RE75C 1 a) BIT, (DR+HD_O08) 3 THE DRIVE 
OLEo ov ADD HL» BU 
OLSt CRS SRL H SWORK OUT THE NUMBER UF RECURS 
Olen ond INC tl 
O134 ES PUSH HL 
o13s fey ale relere) CALL NANY? ;COUNT THE NUMBER OF FREE SECTORS 
O18 El Pup HL 
OLS? 7B LO ALE 
OLGA ge Cr H SAVAILARLE — REWUITREL 
O138 3002 JR NE,SAVI_LS 
O13D E7 RS SHUERR 
OLSE OF DEF B OFH sMICRKOURIVE FULL 
SAV1_S 
OF O1 FOP ve 
O14g SAE 45% S42 LO HL, CUR+N STR2+2) 3 SOURCE 
o143 ED4KRE7SC 342 LO HC, (DIR+HD_O#) sLENGIH 
SAVE2 

O147 78 Lo ABR 
O143 Bl OR C 
O49 S322 lt Z2 SAVE4 SEND OF DATA...CLOSE! 
O148 DO /EOC LO A, (IX+CHBYTE+1) SEND OF BUFFER? 
OL4E FEO? CP = 
OLS ZOOF JR NZ, SAVES 
OLS2 ES PUSH HL. 
Oss Cz FLUSH RC 
OVS4 COooOoOd 3 CALL WRO sYES...WRITE RECORU 
O1s?7 C1 ‘ FOP Bt 
OL DUES Sis PUSH Ix 
O1hA El S24 FOr HL 
O1SH 115200 S57 Lu LE» CHDATA 
OLSE 19 baba Ann HL» DE 
OLSF Ek baba EX HL» WE 
O160 EL S40 POF HL 

541 SAVES 
OL4L ELIAQ S42 Lu SMOVE BYTE INTO BUFFER 
O163 Dies40R S63 INC CLIX+CHEYTE) 
OLE SOUF SO4 JR NZ, SAVE3 
OLE DS 4or S465 INC CIX+UHBYTE+1) 
OL4B LSDA S44 JR SAVE2 

347 SAVE4 
Ot Dut 4 SCE S43 SET 1, CIX+RECFLG) SMARK THE BLOCK EOF 
O17. LAQOOOO S49 CALL WRC SAND SAVE IT 

570 
O1L?74 ZABRF St S71 Li A, (DR+COP IES) 329 WE NEED MORE COFIES 
O177 20 S72 HEC A 
O173 SOE 573 Jk Z,5AVES 

$74 
O1/A SEEF SC 575 Lu (WIR+LOPIES),A 3;YES 
o1/f LILI 4 See 376 RES 1, (1X+RECFLG) SRESET THE BUFFER 
Oc SEO0 577 LD AO e 
OLe3 no7700 572 Lo (IX+UHREC),A 
O186 1893 579 Jk SAVEL : 

S380 6SAVES 


OLSF 
opyor 
OLFS 
O19 
OLge 
QL19E 
OL?8F 


QOLAQ 
O1Aad 
OLAS 
Q1A7 


OLAR 
O1AA 
OLA 


»« OLAE 


OLAF 
OLR2 
O1RS 
O1B7 


OLBS 
OBR 
O1BE 
oO1e. 
O1n4 
O1CS 
O17 
o1ces 
OLY 


ove) 
OLCF 
ODS 
O1oS 
Olue 
o1ny 
O1LvH 
O1ne 
OL1EL 
OLES 


OBJ COUE M STMT 


AF 
IDOadEO 


Csx00aqg7 


SAELSC 
2A 
CHooag 
OOCRLSad 
2302 

E7 

11 


LIT E4354 
2002 

E7 

14 


DUES 
El 
1iS200 
1 
LIEGSC 
OL1d9700 
EURO 
ce 


22E9SC 


CU2202 
LLOPOO 
LASEAS 
OLIGG4AS 
B7 
EDS2 
DON7345 
LILI7 4.46 


DDS 


El 


R 


605 
609 
610 
S11 


UHSOFT 


SOURCE STAEMENT 


XOR 
CALL 


JF 


Aa 
DRVSEL 


DELIX 


PAGE 11 
ASM 5.9 


SNQ.. TURN OFF THE MOTOR 


SANL CLEAR UP 


$GEV.HUD OPENS THE. MICRO URIVE FILE SPECIFIED IN SIRL, TESTS 
s1f FOR READ AND SLVM, AND READS THE FIRST NINE BYTES OF IT 
sINTQ THE HU. AREA. 


GET_HD 


LOAD2 


LOAU2S 


Fur 


? 
3G 
sCTHERS 
70 

3 
GETMBL 
Lu 
Lu 


HL, COR+#SC_LOL) 
CURAN LS TRE +22) HL 
GeENF 

WRELG. CIX+CHFLAG 
 LOADZ 

SHOUERR 

11H 


wy CIX+RECFLG) 
NZ, LOADZS 
SH_ERR 

14H 


Ix 

HL 

Lk. CHUATA 
HL» DE 

Uk» UR+HU_OO 
Rn, D 


COR+HD_OD) » HL 
E, CIX+CHDATA+L ) 
D, CIX+CHNATA+2) 
HL, & 

HL» DE 

H 

H 

AH : 
CUR+HD_OB),A 


FUSHMP 

DE.) 

L» CIX+RECLEN) 
H, (IX+RECLEN+1 ) 
A 

HL, De 

CI X+RKECLEN)>L 
CLX+RECLEN+1),H 
Ix 

HL. 


SRELUCATE THE ADDRESS 
30F THE WL VAR TABLE 
; sUREN THE FILE 
) $13 IT OFEN FUR READ 


3NG.. ERROR 
SFILE NUT FOUND 


$15 IT AN SLVM FILE 


SWRONG FILE TYPE 


sGET THE HEAVERK LATA 


ETMBL READS THE REMAINUER OF THE FIRST RECORD AND READS ALL THE 
YN THE FILE SPECIFILEM BY IX, 
R COMPARED WITH THE BATA AT CHL) 


THE DATA IS EITHER TRANSFERED TO 


SSAVE DESTINATION ADURKESS fe 
SAND LENGTH IN RECORUS 


TCONVERT LENGIH PO RECORDS 


SAUD &, DIVIDE BY S12,AD0 1 


SANL! SAVE / 
3SAVE THE CHANNEL “S 
SSET UP FOINTERS TO LATA 
SRECLEN... REMAINING BYTES 

3DE.. CESTINAITIUN 
sHL... SOURCE 


MAP 


UHSOFT PAGE 12 


Loc GE! COLE M STMT SUURCE STATEMENT ASM SY 
O1E4  115R00 439 Lu WE, CHDATAT? 
O1LE7 19 640 Ano HL» LE 
O1ES  § EDSHRESSC 641 Lu DE, (DR+HD_OD) 
OLED 1814 G42 JR Lucey, SAND MOVE RECURD TH MEMURY 
642 LOALS 
O1EE LDO7HU2 R444 CALL REAL A SREAL ANY RECORD 
O1F1 = OU7E44 LD A» (1X+RECNUM) 31S IT RECORD O AGAIN 
O1F4 7 OR A : 
O1FS 23F7 JR Z, LOANS SYES IGNURE 
O1F? 17 RLA SNG...WORK OUT WHERE To PUT IT 
Off an vEC A 
OLEY  S7 Lo LA TRECORLHS12-9+BASE ALLRESS 
OLFA  1EFZ Lo Ey - 
O1FE SAE VSC LD HL» (iK+HD_OD) 
OFF 19 ADD HL» fe 
Oz00 "EB G54 EX HL» LIE 
O701 ODES 655 PUSH IX 
oz0%3 £1 ts POR HL. 
0204  OL8200 G57 Lo BC, CHDATA 3SET UP POINTERS AS BEFOR 
O207 OP 658 ALIL HL» BC 
659 LOALG 
o2z03 WP 660  EXX SSAVE POINTERS 
CLOOOO =X Bl CALL = DINE? 
200 b62 JR NZ, LOADS 3HAS THIS RECUR) BEEN DEALT WITH 
7E 663 Lo Ay (HL) INC... .MARK MAP 
BO L64 OR B 
77 665 Ln (HLA 
i blots EXX 
CNS702 K b47 CALL CRRLE 3MOVE OR VERIFY THE RECORD 
PAE7 SC AGS Lo A, COR+HD_OB) SDECRENENT RECORD COUNT 
30 bbs? DEC A 
B2E750 670 Lo (DIR-+HE_OH) + A sWAS IT THE LAST RECORDY 
2000 &71 JR NZ, LOADS TNC...NEXT RECORD 
216 Lpste2 oR 672 CALL POEMAL 7YES...RESTORE MAP 
O221 Ce 673 RET 
474 3 
675 $PUSHMP PUSHES THE MAF OF THE CHANNEL IDENTIFIEL BY IX 
7G sUNIQ THE STACK AND REFLACKS THE CONTENTS WITH ALL ZERCES 
477 3 
678  PLUSHMP 
Et 479 PUP HL- 7SAVE RETURN ANURESS 
22098C 480 La CSEC TOR). HL 
DDSELA AS Lu Ly (1X+UHMAP) sFOINT TO MAP 
D046 18 682 Ln H; (LX+CHMAP+1 ) 
O10010 683 Lo BI, 1000H SWORD) COUNT IN Et 
484 PUSHM1 
SE 65 Lu E, (HL) 
71 beh Lo (HL) 
23 “87 INC HI. 
Sh Ase Lo D, (HL) 
7A bE Lo (HL) +t: 
32 670 INC HL. 
Lei 671 PUSH Lk 
10F 7 492 LINZ FUSHM1 
SACESC 693 LD HL, (SECTOR) ; RETURN 
E9 674 JP (HL) 
695 


Oo 
Oats 
oC 


UHSOFT PAGE 13 


LOC BY CODE M STMT SOURCE STATEMENT cM 5.9 
497 +PUPMAP DOES THE OPPOSITE OF PUSHMP 
698 5 
° 499 POPMAP 
Ed 700 PUP HL. +SAVE RETURN ALURESS 


Oot  gneesn 701 Lo CSEUTUR) + HL 


onda LICE LA 702 LD Ly C1X+CHMAF ) 
243 DOAG1 793 Lo H, CIX+CHMAF +1) 
O246 111F00 704 Lo DE, 31 
a249 19 75 ADB HL» DE 
O24A 0410 7O& LD B,14 
7O7  POPMP 1 
ut 7OR POP CHE 
72 70? Lo (HL) D 
2B 719 DEC HL 
73 7i\l LO (HL).E 
= 712 DEC HL 
10F9 713 D.INZ POFMP 1 
ZALYSIE 714 LD HL, (SECTOR) 
EY /15 uP (HL) 
71S 3 
i 


sCPBLK EITHER CORTES THE RECLEN BYTES AT (HL) TO (DE) 
sOR COMPARES HEM VEPENOING ON BIT XR IN FLAGSS 
31F B11 XR IS SET THEN THE BLOCKS ARE COMPARED 


? 
CPELK 
DO4e4s Lou C, CIX+RECLEN) 
LLH4644 LO BR, CIX+RECLEN+1 ) 
SABES LO f¥, (FLAGS) 
CER7F BIT XP A 
2003 JR NZ,CPBLK1 sCOPY UR COMPARE 
ELIBO LDIR sCOPY.. EASY 
Cy RET 
CPBLK1 
1A LL Ay (LIE) Ss COMPARE...FAIRLY EASY 
Bk Cr CHL) 
2008 JK NZ. PRLK2 
2S INC HL. 
13 INC DE 
OR DEC At 
73 Lp AH 
fl OR es 
20FS) JR Nz, CPBLE1A 
Cy RET 
CPBLK2 
O273 E? RST SHUERR ; 7 ERROR 
O74 15 DEFR 15H sSFAILED TO VERIFY 


SREAD. READS ANY RECORD FRUM THE FILE SPECIFIED BY THE BUFFER 
SAT IX ([T IS BASED ON REALIN 

PELPPlertTHIS PROCEDURE ONLY READS RECORUS NOT MARKELD ON THE 
;MAP. THIS SAVES DOING ECO UN ALREALY OBTAINED DATA AND MISSING 
3THE NEXT BLOCK. 

+THIS PROCEDURE LEAVES THE MOTOR SPINNING 


READ_ 


O279  DL/EL? LD A, (LX+CHDR1V) SSELEC( THE LRIVE: 
OL78 CoOOOD X 754 - CALL URY SEL é 


. UHSOFT - FAGE 14 


Loc OBJ CODE M STMT SUURCE STATEMENT ASM 3.9 
JES 3 
7S . READ_1 
OL1F HOG 75 Lo BC, TRYS#HLI_MAX 
E4sce8n ee Lo (SECTORS), BC 
75% FLING 
RYOO9O X 740 CALL RINXT 7READ THE NEXT DATA BLoUckK 
S812 7&1 JK C,RDN2 ~ SNEXT SECTOR IF NO GuUn 
2310 762 JR Z,RUNZ sOR EMPTY 
763 3 
chaodea X 764 CALL DIONE? 
ZOOH TES JK NZ,RDN2 SSKIP THE ECL IF RECORD DONE ALREANY 
SEG 
Dis ts 7&7 PUSH Ix 
El 768 : FOP HL. 
115200 76? Lo LE, CHDATA 
1v S109 Agno HL, De 
Crooag xX V?71 CALL Ecu SERROR CHECK ANI! RETURN 
Co 772 RET Zz 
773 RON2 
CHOOOD xX 774 CALL WEES EC 
ZOER4 77% JK NZ, RON! 
775 3 
Ofek of 777 RST SH ERR 
OTF 11 773 DEFa OLLH SFILE NUT FOUND 


? 
SRELNAM RELOCATES THE AUDRESSES OF FLLENAMES (OR OTHERWISE) 
3IN NSTR1I+2 AND HUSIRZ+2 AFTER AN INSERTION 
3HL SHOULD CONTAIN THE ALIIRESS OF THE INSERTION 
;BC SHOULD EOMTATH THE LENGIH OF THE INSERTION 
STR2 IS USED BY SLYM SYNTAX TO STURE SPECIFIED LOAD LETAILS BUT 
tN-STR2+2 (23750) (5 NOT USEQ. 
? 
RELNAM 
ES PUSH HL 
BS PUSH HL 
ERSBE 4S LD DE» (OR+N_S1IR2+2) 
COEBBOS R CALL REL 
ES Lu (UR+N STRE+2), DE 
OnAt Et Pur HL 
OLAE ELISEO Sit LO LE, (DR+N_STR1I+2) 
OLR COBBOD R CALL REL 
OES ELVES UCSc Lu CUR+N STR142), DE 
O2RY El POP HL 
OBA Cy RET ‘ 
: REL 
ODER 37 SCF 
OOH EWS2 SBC HL, DE . 
Oo BE bo RET Nie s1F IT 1S BELOW INSERT THEN NO CHANGE 
SALISC Lu HL, (STKEND) 
EDISS SBC HL,» DE 
De RET Cc 31F IT 13 ABOVE STKEND THEN NO CHANGE 
EF EX HL» DE 
OF Ang Hi.» Ets 
Ek EX : HL, DE 


oe ee 
Loc 


2ce 


UHSOFT 
08! CODE M STMT SQURCE STATEMENT 


Cc? $13 RET 
3145 


‘Loc 


OB CODE M STML 


SOON UM awe 


1 
11 
iz 


CLOSE 
ATEMENT 


CLOSE MODULE 
30/3/83 
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PERE HEHE HEHE TEE EEE EE SEE EEE EE ESE EE EEE SE ESE HEE EE HEHE EEE EE HE IE EEE SE EE EE ESE 


BPR REACH RE HEHE SE HEHE HEH HE HAE IE HE EEE HEE HEE HE SEE SEE HE AE HE EE SE HEE SEE HEHE SE HEE FETE HE IEE SE HE IEEE EE SEE HE EGE EE SE 
#INCLUDE NEWVAR. 'S 
. 


SME AEE HEH SE HE HEE HE TEE SEE EEE ESE EAE HEE HEE HEE EEE SEE EEE EEE EE EE EEE 


SH 
SQURCE ST 
H 
? 
3H 
5% 


NEWVAR. & 
EP/4A/E3 


* 
# 


FFE RE TE HE AE HE HEE HAE HEE AEE HE te TE HE HEHE HEHEHE HE TEE HEE HE EEE HEHEHE HEE TE HE HERE FE HEE HE EEE HEE 


? 


HERETO TEA SEE HE AE SEE HEH HE EAE SEE EE EE EE EE EEE EEE 
ae SYSTEM EWUATES 
SHARE HARARE HE HE HEHEHE AE HE HEME SE HEHE BE EE HEE EEE HE SEE EEE SEE HEE AE HE HE ESE SE EE at 
: 


2 


PORIC 
FORTD 


? 
SELL 
SELC 
WRIIE 
ERASE 
CTs 


SYNC 
PROTECT 
GAP 
BUSY 
PLEN 
HOLLEN 
D_LEN 
HEI_MAX 
TRYS 


GAPT3 
GAPT1 


GAPT2 


Emu 
EIU 


Eau 
EGU 
Eu 
Ewul 
Eau 


Eau 


Eau 
Eu 


Emu 
EGU 
Eau 
EH 
Eau 


Et 


EQu 


JE 


# 


OLFH SUDRIVE CONTROL/STATUS FORT 

Ok 7H sQATA PURT ALORESS 

OFEH sDRIVE SELECT DATA 

OF DH SDORIVE SELECT CLOCK 

OF BH j SWRITE CURRENT ON 

OF 7H TERASE CURRENT ON 

OLFH SCLEAR 10 SEND QuTrruT 

Zz sSYNC BYTE DETECTED SIGNAL 

Ew 1 WRITE PROTECT SIGNAL 

4 3;GAP SIGNAL 

10H 

iz . . $LENGTH OF PREAMBLE 

PLEN+1441 SLENGTH UF HEADER BLOCK FLUS PREAMBLE 

HU_LEN+51241 SLENGTH OF DATA BLOCK 

255 SNUNGER OF BLOCKS ON fAFE 

bal SNUMBER OF TRIFS ROUND TAFE 
SREFURE GIVING UF ; 

B40 STHE Det BC DELAY BETWEEN READING 
SA HEAUER, CORRECTING if. TESTING 
SIF FREE AND WRITING A DATA BLOCK 

GAPT2+74 STHE GEC AC DELAY BETWEEN WRITING 
3A HEADER BLOCK AND WRITING A 
iDATA BLOCK 

S31 ; STHE DEL HE DELAY BETWEEN ENL OF 


3THE ABOVE TIMINGS ARE HOPEFULLY 


7FUR A HEADER OF LENGTH S40us 


FOLLOWED 


3A DATA BLOCK AND BEGINNING UF 
SHEADER BLOCK 

STHE DEC BC LELAY 15 26 T-SfATES 
sOR 724uUs 


BY A GAP OF 3.065, FULLUWEL 


3BY THE DATA BLUCK LENGIH 21.3NS,FOLLOWED HY A GAP OF éMs, 


ERRUR 
INSERT 
LELREC 


— CHANS 


Eau 
Euu 
Em 


Ee 


SERROR HANULING IN RUM 
SMAKE SPACE IN ROM 

SDEL ETE SPACE IN RUM 
SADDRESS GF CHANNEL DATA 


Lac ORS CUE M STMT 
av 


: 60 
41 


22 


es 
64 
babe] 
B84 
37 
Se 
a? 


SH CLOSE FAGE 2 

SOURCE STATEMENT AIM 3.9 

STKEND EQ@U SAULRESS OF START OF SPAKE SPACE 
STKBUT Evlul : 

MEM Buu 

SELECT Eu SCHANNEL SELECT SUH. IN OLD RUM 
SENQTV Evil S1V OUTPUT PROCEDURE 

OUICH ERU 14 sCHANNEL OUTPUT ROUTINE 

INCH EWu 1SEGH : SCHANNEL INPUT ROUTINE 

3 

5 

3 SHADOW ROM SYSTEM VARIARLES 

SRR ACHE HEHE IEE SEAL EAE SE HE TUE ESE SE HE SEE HE HE EAE HE EAE SE ESE ESE IESE HE AE SEE SEH SEE FETE SE ETE TE EE FE SEE HE HEE HEE SESE ETE HE 

3 

5 


’ SYSTEM RESTARTS 


RBASES 
ENTRY? 
CALBAS: 
SYNTs 
SHIERKS 
ROMERR: 
INSERW 
MASK: 


5 BASE 


LAST_K 
DEFAUD 
STRMS 
Y 
ERR_NK 
FLAGS 
TVLFLAG 
ERR_SP 
NEWFPIC 
NSPFC 
FPL 
SUBPPC 
BUORLICR 
VARS 
CHANS— 
CURICHL 
PROG 

‘DATADD 
E_LINE 
CH_ADG 
X_FTR 
FLAGS2 
FLAGX 
UG 
SCRCT 
ATTR_P 
ATTR_T 
P_FLAG 
DR 


EMU 


Eau 
Emu 
EQu 
Eau 
Eau 


ROM 
Ec 


Ect 
Emu 


EG 5 


Et 
EGU 


Ea 
EGU 
Eau 
Eau 


Ect § 


Emu 


Eu QO00H 
OOOH 

Ett OO1LOH 
OLEH 


ALIDRESSES 


SOSH 
SCoBH 
Sl LOH 


SSB 
EGU S3CH 
AS OH 
Sl 42H 
SCA44yH 


Eu & 


Equi § 


Eau S 


Eau 


Emu 
Eau 
Eull 
Emu 
Eu 


Eau Sr 


Eu 
Eau 
EC 
Eau 
Ee 


BOW Sime 


SH_CLOSE Bhi 3 


"Loc UB CODE M STMT SUURCE STAIEMENT ASM 5.9 

117 

113 

11° 

120° 63 

L213 SERRE SE AE EE HEE HE TEE ESE EEE IE EEE HE ESE EEE ESE SEER HE EEE ETE EEE EEE HE 
1220 O5 # FIXED NICKODRIVE DATA * 
DF EHR RHEE SEHR AE HE HEHEHE HE HEE TEAR AEE HE AEE EEE EEE EEE EE EEE GE 
124 3 

125 6 


126 $THIS FIXED DATA IS FOUND IMMEDIATELY AFTER THE SYSTEM VARIABLES 


127 $THE SPACE IS CREANED WHEN THE SHADOW ROM IS FIRST CALLED 

125 03 ~~ ‘ 
29 FLAGSS EGU DR #23734 sRIT O 1... RECURSION 
130 sBIT 1... AUIO RUN 

131 sBIt 2 2... HOOK 

132 SALT 3... NEI/RE232 

133 sRIT 4... LOAL 

134 sHIT 5S 4... SAVE 

1235 SEIT G@ ... NERGE 

134 SEIT 7 1... VERIFY 

137 XR * Bow / TINVICATES VERIFY NOT LoOAL 

1 VECTOR ECU O1H F23735/6 SHEW CONMAND VECIOR FUINT 
137 SBRT EMU VECTOR+O02H 323727 3START OF CALBAS SUBRULITINE 


140 HL EQuwt SeRT+O1H 
141 ZILCH EGU SBRT+O4H 
142 BALL EMU SRRT+CAH 
143 NTSTAT  Evutll sAUO+FOSH 
144 IOBORUD EWU NTSTAT+O1H 
145 SER-FL EG LORORD+O1H 


SRATE FOR RS222 

;°UWN’ STATION NUNBER 

SHORLER COLOUR FOR I/c 

SERIAL INFUT FLAG & CHARACTER 


. 
? 


144 SEND OF DEFAULT SYS. VARS. 

147 

145 

149 7START OF VARIABLES 

150) SECTOR ECU SERUFL+O2H+U0R 323753 INICROORIVE SECTUR 

151 CHADD Bu SECTURTOZH- LR 7237/55 7 TEMPORARY STORE FOR CH ALD 
132 NTRESF EEUU CHADDL+O2H 3523757 5 Ss TORE FOR RESPONSE CODE 

153 

154 3 THE ae LOCATIONS FOR A NET HEALER 


155 NTDEST EU NIRESF+O1H 
154 NISROE EGU NTLEST+O1LH 
15 NTNUMB EW NT SRCE+O01H 
[3 NTTYPE EGU NTNUMB+O02H 
12” NTLEN Ew NTTYPE+OLH 


SHESTINATION STATION NUMBER 
SSUUNCE STATION NUMBER 
SELUCKE NUMBER 

3°DATA* (0) OR “CLOSES (1) TYPE CODE 
SUATA BLOCK LENGTH 


ue 


ve owe vt we ve we 


160 NTUCS EDU NTLENTOLH 3DATA CHECKSLIM 

161 NTHCS EWU NIDCS+01H SHEADER CHEMESLM 

142 

143 STHE SIXTEEN LOCATIONS FOR PARAMETER COLLECTION 
144 DSIRE NTHOS+01H = sTUC BYTE NUMBER 


145° S_LSIR1 Et STR1i+02H 
144 LSTRI EWU oUSTRI+03H 
147 N_STRI EMU DLSTHI+04H 
168 O“<SfRe Eu DST 
14" SLSTRE EAU DLSTR1I+0AH 
170 LUSTR2 EGU DLSTRL+0BH 
171 NUSTR2 EQU D_STR1+0CH 


sSTREAM NUMBER 

s;LETTER 

sNAME DETAILS (LENGTH & START) 
5 ## SECOND SET ## 


174 SC_oo EQU DLSTRItOSH 323/774 s;SECOND SE) FOR SCANN 


Lae MR a a ak kN ae a Nek a a a tc i na a ee a es eet nae tat aa aon tee ee nea amanas eae 


SH CLOSE PAGE 4 
Lov On CODR M STMT SOURCE STATEMENT ASM 3.F 
175 =SC_oB EQu DLSTRI4O9H 323775 
- 176 SC_op EQU DUSTRI+OBH $23777 
177) ~SC_OF EGU OLS TRI4ODH $237/79 
173 
17? 
130 7 THE NINE LOCATIONS FOR “SAVE*, “LOAD” ETL. 
181 HD_o00 EWU DLStRI+10H = $23782 STYPE CODE 
182 HU_OB Eat HD_00+01H $237323 sLENGTH UF BLOCK 


133 © HO_oc EGU HO_LOE+O1H et tt 
124 Hop EGU HOLOM+O1H 23 
185 HO_LOE EGU HOLOt TH 
136 HD_LOF EGU HULOE+OLH 
137 HOL10 EQU HELOF +O1H 
133 HOLL EQU HD1O+01H 
189 HDL12 EQU HOLL 1+01H 
190 


;S7ART UF BLOCK 
SPROGRAMN LENGTH 


sLINE NUMBER 


ivi COPIES EM HLL Le+d , $23791 

192 

173 

174 =ROMADD EQU HD_10+01H 323789 sPASSING ANDRESS FOR HOGKS 
195 


DRLEN EQU COPTES+01H 
N_LEN El! O114H SLENGIH CF A NET BUFFER 


: RS232 PORT VETAILS 


RS232 EQU OF 7H iSERIAL. DATA PORT 

KRALPT EQU OFEH SKEYBOARD FORT 

STATUS EA OEFH SSERIAL STATUS PORT 

OrR EW OSH sNASK FUR DTR OUTPUT 


s NET PORT DETAILS 


SERIAL Ett OF 7H SSERTIAL CATA FORT 

WAIT EQU OEFH sWAIT FURT 

3 

STEER SE ETE HEAR EAE HAE HAE TE TEE IESE ESE ESE FEE EGE IESE TE AE HE EE HEE HEE EEE HEE 

7 MACKS * 

5 SRT ESE AL SE AEE HAASE TE ETE EAE SEE FREE ETE SESE IESE TE SAE EAE AEE AEE SEE ESE EAE EEE HE 

RST MACRO #ALIDR ?THIS MACRO WILL BE USED TO FLAG 
RST TADIIR 7CALLS (OQ HE ROM WHEN THIS S/WARE 
ENUM f 31S CONVERTED TO SHADOW ROM FORM. 


MACRO #C0NLI 
CONDO .NUT. (#COND) 
HEHEHE RAOR IN ASSERTION #COIND 


ENDC 

ENUM 

MACRO #SUB 
RST CALBAS 
DEFW SUE 
ENDIM 


MACRO H#DEST 


: SH_CLOSE PAGE 5 
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 


AIP #NEST 
ENDIM 


Jhb RY DS 


FETE TERETE HE HEHE EEE HEHE HEHE HE TE SE HE FE SE HE HE HE HE HE HE SE IE SE HE HE EE aE SEE EE HE EE dE 
* DATA * 
FER TE FETE TE FETE HE TE HEHEHE HE HE SE HEH HE HE SE HE aE HE SE JE HE HEE IE HE SE SE EE EE EE HE 


FETE TE ETE SE HE HE EAE HE EE HE EEC HIN Lt 6-40-98 SE 00 8 SE HE a at aE a a 


THE FOLLOWING DAIA IS CREATE’D FOR EVERY OFEN MICROURIVE FILE 
AND SOMETIMES FOR A WORKSPACE IN MICROURIVE OPERATIONS 


ws Ve we we we we ve ve ws we we ve ve se we us 


QLD WRCH ADURESS FOINTS TO O00 
S0LD ROH ADDRESS FOINTS TO a00S 


SCHANNEL TYPE 


CHLEN Eau CHT YFE+5 SLENGTH OF THIS CHANNEL DATA 
CHRYTE ECL CHLEN+2 SCURRENT #YIE FOINTER 
UHREC EQu CHEY 1E+2 ; CURRENT RECORD j 
CHNAME EW CHREC+1 310 BYTE FILE NAME 
CHELAG EAU CHNAME+ 10 s CHANNEL FLAGS 
WRELG EWU cs) SWHRITE FLAG BIT 
5 
CHURIV Eu CHFLAG+1 ; SURIVE NUMBER O-7 
CHMAF Eu CHL TV+1 FAUORESS OF LIRIVE MAP FOR fFHIS FILE 
CHHUR Eau CHMAF+2 . 3START OF HEALER 
HOFLAG EL CHHOK+F LEN SFLAG @YTE AT SfART OF HEADER (aL fo=1) 
HUNUMB Eu HOFLAG+1 SNUMBER OF CURRENT HEADER/SEC LOR 
SFOLLOWED KY TWO EMPTY BYTES 
HUNAME EG HOMUNB+S 5 TAFE. NAME 
HOCHE EGU HUMAMNE+1LO SHEAQER CHECKSUM 
STOTAL LENGTH OF THE ABUVE FLEN + 15 
CHES Eau HOHE +1 SSTART OF DESCRIPTOR 
RECFLG EU CHOES+FLEN SFLAG BYTE IN BESURIPFUR (CEI TO=0) 
SBIT 1 = Et 
. SAIT & = sLYM 
RECNUM Eu RECFLG+1 SNUMBER OF THIS REWOND 
RECLEN Ect RECNLUM+1 sLENGSH OF THIS RECORD 


RECNAM EAU 
ESCHER aU 
CHLATA  ERU 
DICHE a 
CHANLN ECHL DHE + A SLENGTH OF ALL THIS 
5 

ES FERRIER REESE IESE IEE IEEE IE ETOP SHE SE AE REE HE EEE EEE EEE EEE GEE 


sNAME OF THIS RECORD 
SDESCRIFTUR CHECKSUM 
SETART OF DATA BLOCK 
SOATA CHECKSUM 


by bo bo bo 
oe 
og 


2 
? 
ry 
? 


A MICROURIVE MAP IS A BIt MAF CF ALL SECIORS ON A MICRODRIVE 


Loc 


1708 


1708 
1709 


170A 
1700 


L70E 
1712 


4715 


17230 


SHOCLUISE PAGE & 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 


iTHE BITS ARE COUNTED FROM © TO HO_MAX-1 THE LENGTH 
SOF THE MAP IS THEREFORE GIVEN BY:— 


MAPLN EAU 32 


THE MAP 13 CREATE‘D FOR EVERY DRIVE CONTAINING AN OPEN FILE 


? 
#LISt ON 
$ 
GLOBAL DELTMP. CLUSTR 
EXTERNAL ORVSEL. DEL IX 
EXTERNAL EN, OUT_oT2, NTCLSE 
EX TERNAL CLUSEN, CLOSIX 
URG 1/03H 
3 
23 3 INC HL SREFEAT THE BASE ROM INSRUCTION 
F7 311 RST [NSER_ sJUST IN CASE FIRST CALL Ta ‘SHADCW RCM 
312 
CH3F 313 SRL A 37°AS HOLDS THE ALTERED SIREAH NUMRER 
D403 214 SUE OSH 7FING STREAM NUMBER 
315 SUSING (A/sz-3) 
FOCR7 CSE 314 RE'S 1, CIY+FLAGSS-yY) TO TELL CLLUSIR To CLOSE PROPERLY 
COLS17 B17 CALL CLUSTR SCLOSk THE STREAM NOW 
Bie 
Es0000 X 319 JP ENDL 
CL-STR SCLOSE STREAM “A- 
Li7 RET CALBAS 4g 
2/17 . DEFW A172 7H © SFING “OFFSET’ FOR THAT STREAM 
Ss sac: SET 
SHL - SIRLETR 
73 Lo A.c 
HO OR B 
ered RET Z SRETURN “Z° IF STREAM ALREALY CLOSEy 
CS PUSH BI : STACK ~- OFESET 
ES FUSH HL TSTACK - OFFSET. STRUPIR 
SA4F SEC LD HL, (CHANS_ SBASE OF CHANNEL AREA 
z ec HL 
vp ADD HL, Br: SBASE OF STREAM Av CHANNEL LATA 
ES EX (SP),HL SSPACK - OFFSET, CH_UPIR 
SHL - STRLPTR AGAIN 
[7 ST CALBAS ere? 
ERLE WEFW 16E RH? sTO CLOSE THE STREAM / RESET IT 
SA4F SL LD HL, (CHANS_) 3KASE OF CHANNEL AREA 7 
111400 Lu DE,0014H 
1Y ADL HL» DE 3ADORESS AFTER K, S. R & F CHANNEL DATA BLOLKS 
D1 PUP LE SFETCH CH_PTR 


. SH_CLOSE PAGE 7 
Luc OBJ COLE M STMT SOURCE STATEMENT ASM 5.9 
1731 37. Str SDECREMENTED SUBTRACTION 
1732 EDS2 Sec HL, DE 
1734 Ci 5 POF Bit SFEICH OFFSET 
A725 Do RET NC SRETURN NeW CF THERE IS NO “RECLAIMING TO BE OONE 
1734 Cs PUSH BC SSIACK - UFF'SET 
1737 DS PUSH DE sSTACK --OFFSET, CH-PIR 
1733 EB EX DE,HL SCH-PTR TO HL. 
1739 22915C LO (CURCHL)O, HL $MAKE THiS CHANNEL “CURRENT ~ 
MD INC HL 
INC HL 
ING HL 
INC HL 
Lo Ay CHL) sFING THE “LETTER? 
LO OE, OO03H §THE LENGIH 15 5 LOCATIONS FURTHER CIN 
ADL HL, DE 
LODE, CHL) SFIND THE “LOW LENGTH’ 
INC HL 
LO Dt (HL) SAND THE “HIGH LENGTH” 
PUSH LE sS1ACK - OFFSET, CHF IR, LENGTH 
1749 F442 CF 42H sIS 11 “HY ? 
1/48 2504 JR 2,CL_BT 
1740 FES4 CP 34H $15 1T “T’ 7 
1/4F 2000 JR NZ,CL_N 
. CL_HT 
1721 FUmB7C4E BI) 1, CIY+FLAGSS-Y ) ?JUST DELETE IF CLEAR# 
17S5 2023 JR Z,0L_R 
1757 2 LL A, ODH 3A CARRIAGE RETURN CHARACTER 
1752 NOOO X CALL OUT _T2 
1750 1321 JR CLLR 
CL_N CF 4EH 3135 THE LE ITER A “N’ *¥ 
JR ONZ,CLUM 
BLT 1, (1Y+FLAGS3-Y ) sJUST DELETE IF CLEAR 
JR NZ,UL_R 
43 x CALL NTCLSE 
174B 1S12 HR CLR 
1740 Foam CLM CP 40H $15 THE LETIER A “M* 2 
1745 ZO0E JR ONZ,CL_R 3D0 THIS FOR THE SAKE UF FUTURE WEVICES 
17st uel FOP Dk 
1772 DDE 1 3 FaP IX 
1774 La 3 POP TE : 
1/773 FOCE7C4E S75 BIT 1, (IY+FLAGS3-Y) 
177? LAQOOO x ‘ JP Z,CLOSIX i CLOSE 
177¢ 30000 x JP DELIX 5 CLEAR# 
; SNOW RECLAIM THE CHANNEL DATA BYTES FOR THIS STREAM 
400 ULLR POP BIC sFETCH fHE “LENGTH? 
401 POP HL SFETCH THE “CHLFIR* 
402 PUSH BC * SSTACK - GFFSET. LENGIH 
403 ' RST CALHAS : 


= DELREC : : 
404 DEFW EES FRECLAIM THE BYTES 
ae 


406 ; SNOW CONSIDER ALL THE SIREAM LATA BYTES 


SH_CLUSE FAGE 8 


LOC OBS CONE M STMT SOURCE STATEMENT ASM 5. 
407 FREQUCING THOSE THAT NUW POINT TOI FAR. 
408 
1785 AF 409 XOR A SCONSIVER THE OFFSETS FOR STREAMS OOH TO OFH 
17s 211450 410 LO HL. SCidH IBASE AUURESS FUR STREAM GOH 
ALL 
SE 412 Lisi LOE, CHL) SFETCH THE “OFFSET’ FORK THE STREAM 
a3 412 INC HL 
56 414 LE! 2, CHL) 
2 415 DEC HL 
YESFSC 416 LLU (X_LPTR),HL sSTORE THE POINTER TEMPORARILY 
C1 417 POP BC STHE “LENGTH? 
ioe) 418 POF HL STHE “OFF SE1- 
Es 41? FUSH HL 
aa 4z0 PUSH BC * $RESTORE THEM FOR THE NEXT LUUP 
A7 4 AND A ; 
FUIS2 G22 SBC HL, DE STEST OLD OFFSE1 AGAINST NEW OFFSET 
BOOE 2S * JR OMG OL ss WAP UNLESS CATA BYTES NEEQ RELUCING 
4z4 
177? OE 25 EX DE.HL 3NEW OFFSET TO HL 
177A OAT 426 AND A : 
172R | ELacs 427 SBC HL, BC SRELWCE CFFSET BY “LENGTH? 
wen RE zs EX wE,HL SMOVE TO) DE 
77E | TASFSc 427 LD HL, (X_FTR) 
Val 73 430 LD (HL)E 
WAZ OSS 431 INC HE 
17Az fa 422 LD (HL), 7ENTER THE NEW VALUE 
433 
174 424 CL.S2 LD HL, (X_FPIR) 
“47A7 43s INC HL. 
17A8 4G INC HL sSTEP ON 
L7Ay 437 INC A 
17AA 4g CF 10H 
WAC | Bene 429 JAR C, CLS 
440 ; 
17M - FDB42400 44i LL CIY4+X_PTR+1-Y),00H  sRESET X_FTR 
wee Et 442 POP HL 
173 OA 443 FOP HL 
1784 FOCH7 CLE 444 RES 1, (LY+FLAGS2-Y) S72 IDY UP AFTERWARDS 
i7ns = ce 445 RET 
444 
447 
443 
4a? 
450 3 
451 sDELYTMP DELETES ALL TEMPORARY BUFFERS 
452 $sIE HOSE MARKED BY BIT 2 SET IN THE TYPE 
453 3 
454 DELTMP 
L7B? UDEA4R ou: 455 LD 1X, (CHANS) 
17B0 |= 111400 454 Lo LIE, 0 
a7co)| na 457 ADD 1X, DE 
45 oT1 
1702 59 LO A, (IX+0) sLAST CHANNEL? 
17S 460 : CF SOH 
1/07 461 ' UR NZ,DTiS 
1709 AGE Lo 4,CTS.AND.SELOQ sEVERYTHING OFF 
17CB 463 OUT (FORTC) A 
17D 464 ; XOR - A s INCLUDING MOTORS 


SHUCLOSE z PAGE ? 
"Lie OB! CODE M STMT SQURCE STATEMENT ASM 3.9 
L7ITE LI0000 X 4465 JF DRVSEL 
1/701 cy 4B RET 
. ALT § 
448 pris 
172 DL7i.04 449 LD A, CIX+CHTYPE) 7 TEMPORARY MICRODRIVE> 
T/tS ° FECO 470 Cr “M4 4OH 
17117 S008 471 wR N2Z,0T2 
1/0? COO X 472 : CALL Cue 1X sYES DELETE IT 
170¢ 1slip 473 JR DELTMP sBACK FOR MORE 
; 474 bT2 
17 Lit FEICE 473 mt “NO+S0H 3 TEMPORARY NET 
17E0O BOOK ATS IR NZ,O9r3 
477 $¢ 
L7E2 O11401 473 LO HIT, NULEN 
L7ES DOES 479 FUSH 
L7E7 Et 480 Por 
17ES 7 431 RST 5 ays 
L/JED Esa 4S2 DEFW YESH 
17EH lecrc 433 AR DEL TMP 
484 IT3 
17EuU HOSES 435 Lh E, CIX+CHLEN) 
1/FO TIS SOA ASG LO DQ, CIX+CHLEN+1 ) 
1763 OD 437 aun IX,IE 
7S Lecce 4ag wJtR oTgy1 SHEXT CHANNEL 
4o7 $ 
4on 
AVI 


Sf eae 


ONOO, 
GOOL 

QOO3 
POS 
OOO 
OOO? 
OOO 


ROO 
Oc 
OUOF 


OLS 
~oo1a 
mod 4 
Cees 
WoL? 


oo1a 


Oo1e 
OOLF 
Corie | 
oon 3 
Oon8 


a ed 


Qh CODE M STMT SOURCE 


1 
2 
3 
4 
& 
; 
8 


ES 
FEO 
2004 
cD3300 
FR 

E1 

cs 


Fa 
CLO 
mised3 


Pal 
7 


BS 


“2UF 


21ee13 
OE 4> 


CDF 200 
EEF 
£404 
2004 
10FS 


URIVE 


STATEMENT 


PAGE i 


Asn 3.9 


SHEE GEE HEHE EHR HHH HERRERA EEE 


3H 
3 
34 
5 # 


DRIVE, $ 
12/5/83 


% 
# 
# 


SHAE SEE HHH HEHEHE ER RHR HHH EH ESE 


5 
#LIST 
es 


ue 


SSFPECI 
37a) LE 


ON 


GLOBAL 
GLOBAL 


GLOBAL 

EXTERNAL, 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX TERNAL 
EXTERNAL 


DRVSEL SELECTS AN 


FIED BY AC 
SELECT ALL 


DRVSEL, ROHPLE RUBLE WRHBLE, WRBLE 
BREAK DRVO 


DELRC 

UF, WPHE X » HEX 

BOCOL 

MEOH. MWECH OL IX, CLOSEN 
CLOSIX 

CREA TE. WRREC. READIN 

WIHUE, ECU, ECH 

FORMAT. UPENP > FENN, CATN, ERA 


SHISOFT 


3 VH'SOF T 


MOVE, SAVE,GETLHO,GETMEL | 


a 
C. 


DRIVES A=0 


SUHSOFT 


TURNS ON THE MOTOR FOR THE DRIVE 


SINTERUPTS ARE OUSABLED WHILE A ORIVE [S SELECTED 


+ WHEN 
3;31GNA 


DRVSEL 


DRVS1 


URVSS 


DRVS4 


DRVS2 


A DRIVE IS 


BELEC TEL 


URVSEL WAITS FOR A FERSISTANT 


LOSO THAT AN ENF LY DRIVE [3 NOT SELECTED 
3FORMAT SHOULD CALL DRVO 
SWITH A BLANK TAFE 


PUSH 
CP 


NZ,DRVS1 
DRVO 


HL. 


DRVO 
HL» OOO 


HL 

AyH 

L 

NZ. DRVSS 
HL». Soo 


Bt 


BREAK? 


Ay (PORTE) 
BAP 

NZ, ORVS3 
DRVS2 


eet ecw be inl 


IN ORDER TO SELECT A DRIVE 


SSTARTING UR STOPPING? 


PSVTUPPING...JUST DO IF 


ISTARTING...D0 1T Lehre 
VfHEN WAIT 40MS FOR MOTOR VOLTAGE 


o = 


$THEN WAIT FOR A SIGNAL 
SAT LEAST THIS LONG 


#LONG ENOUGH? 


OO33 
9034 


NOOSE 
O03- 


OOF 
Og4? 
O44 
0044 
Oogs 


oO4k 
qogn 


TAOe 


OO32 


OOS4 
QOES 
ooOss 
oos? 
QoOSH 


OOS 
0460 


NOG 


GO68 - 


QA 
Oda 
OOGE 
QO6F 


URIVE 
OHI COLE M STMT SOURCE STATEMENT 
El Por 
Cc? RET 
: ~ DRVSS 
2B DEC 
a Lo 
BS OR 
2OEC JR 
Cooood R CALL 
E/ RST 
10 DEFR 
3 
3 
DRVO 
nei PUSH 
110001 LO 
En44 NEG 
Céay? ADT 
AF Ln 
O408 Lo 
DRV1 
CEC 
wl 
Lu 
QUT 
Lo 
QUT 
CALL 
LO 
OUT 
CALL 
IK 
URV2 
LO 
OUT 
7B LO 
[esr 7 OUT 
miy7000 R CALL 
a 8 Lo 
Bye OuT 
R 293 CALL 
3974 DRV3 
BP DAINZ 
ety 
7A ; Lo 
f3Fr7 QUT 
SEEE LO 
LEFF QUT 
D1 POP 
Co RET 
ELAY 
Cs PUSH 
FS PUSH 


HL 


HL. 

fir H 

L. 

NZ, DRVS4 
URVSEL 
SH_ERR 
10H 


DE 
Lik, LOOH 


A. 
CA 
BS 


Nz,URV2 


2A 
D.AND.CTS 
Dy2A 
DELAY 


A, SELD. ANUS. ANLL. SELC 


C(PURTC)2A 
DELAY 
LRVS 


ACTS 

CFORTC).A 
AVE 
CRE 
DELAY 


ZA 


AJ CTS. AND, SELC 
(PORTO) A 
DELAY 


DRV1 


A,T 

(REZS2),A 

A, CTS. AND. SELD 
(PORTO) 2A 

Die: 


ae 


PAGE 2 
ASM 3.9 


SWAITED POO LONG? 
SDRIVE OFF 


SDRIVE NU PRESENT 


SQUTPUTTING E LEACTIVAIES THE RS23z 
SOUTPLUITING D BEACTIVATES THE NET 
PCOUNTING FRUM THIS END 


SDEACTIVATE NET 
SSELECT THIS DRIVE & NET 


sCLOCK IT THROUGH 


SNOT THIS DRIVE 
sRS232 SELECTED 


;DEACTIVATE RS232 


sCLOCK LT THROUGH 


SDEACTIVATE THE NET 


iLEAVE NET SELECTED Al ENU 


Lee: 
vo72 
0075 
0078 
0079 


2 OTA 


- acasage aR 


0078 
GO7C 
OOvF 


OOS 


OOP 


Coes. 


Ooo 4 


ooer 
revered hl 


OOVE 
QOAQ 
OOAL 


Ooas 
OOAS 


OORT 
QOAA 
OQOAB 


SES Oly: 
LL LEOO 


DEI CODE M STMT 


OL8700 
COOBOL R 
Fi * 

Ci 

Cy 


1s04, 


ES 
LL1IFO? 


UBEF 
ESOL 
2002 
Ey 
OE 


SACK Sul 
LYSE E 


EDE3 
3h 


20FB 


SEES 


- {SEF 


cnoooo 
El 
cy 


xX 


4083 
409 
410 
411 
412 
413 
414 
415 


5 416 


417 
4i8 
419 
420 
421 
422 
423 
424 
ALS 
424 
427 
ay 


430 
At 


432 


433 


DRIVE PAGE 3 
SOURCE STATEMENT ASM 5.9 
LU BC,135 
CALL DELBC 
PoP AF 
POP RC: 
RET 
SWRHELE | WRITES A HEALER BLOCK FROM (HL) | se po oS Bek GCRE ehcp WG 7 
SWRELK WRITES A DATA BLOCK FROM (HL) ne re pe ee ae foray 
sUSES ABLDEHL ; 
7 
WRHBLIK Sieg. : 
PUSH HL . io Cee sane 
Lu DE) HUWLEN+3 my 3 ‘ . é 
JR WRI 
WHEL 
PUSH HL 
neigh LIE, L.LEN+3 
CARL 
ae IN | Ay (PORTED 
AND PROTECT fIS THE DRIVE WRITE PROTECTED? 
IR NZ, WALL 
RST SH.ERR 
DEFB OEH sURIVE WRITE PROTECIED 
WR 4 
Lo As COK+ TOECRID) 
QUT 2540.8 
3 
LD A, WRITE. AND. ERASE. ANU. CTS. AND. SELD 
OUT (PORTO) A 
ING u 
Lu Aol 
Lo BLE 
LO C, PORT 
? 
NOP 
NOP 
Nop 
; 
WR 
j 
urIR 
DEC A 
JR NZ.WR2 : 
H 
LU A, ERASE. ANU. CTS. AND. SELD 
OUT (PORTIA SWRITE CURRENT OFF 
’ 
’ 
CALL BOCOL 
PoP HL. 
RET ‘ 
’ 
; 
TROHBLK WAITS FOR A GAP ANIL! REALS THE NEXT BLOCK AS A HEADER 


LPOG wr me a 


“ DRIVE PAGE 4 
oC UBS COLE M STMT SOURCE STATEMENT ASM 5.9 


46% SBLOCK INTO (HL) 
467 $RDBLK DOES THE SAME FOR @ LATA BLOCK 
4&o 5 


5 
44°  ROKBLK 
OOAD ES 470 PUSH HL. 
OoaAn LLOFOO 471 Lu TE, HOLLEN-PLEN 
voBO =-1804' 472 . JR ROL 
472 RDBLK 
OOB2 ES 474 PUS: HL. 
OOUR 111002 475 LD LW, DLLLEN=PLEN 
476 RO 
OLA qu 477 LD BLE 
OOn7 4A 473 LD eae A) 
Ok’ OC 479 INC C 
4eo 3 
OOB? ° US 4s PUSH BC 
4a2  RoOZ 
OORA — OAC tees LD Bye SWAIT FOR A PERSISTANT GAF 
SHE PERIUD OF THIS LOOP 19 24s 
ROS 
OORK : CALL BREAK? 
COE IN Ay CPORTC) 
OCCL AND CAF 
OOS JIR Z,RO2 
OOts DINZ ROS 
491 Rus 
OOL7  — GOK Age Lo Ba G 
473 RBS 
oory COF200 KR 494 CALL BREAK? 
OOCL  — LBEF 47S IN A» (PORTE) SWAIT FOR PERSISTANT SIGNAL 
OOCE E404 424 AND GAP 
COU — PORS 427 UR N2. ROS 
OO — 1LOFS AI TnINZ ROSS 
ood ta 4r> POP BC 
OO 3 
OODS BERR SO1 Lo 4, CTS. AND. SELL TISSUE READ COMMANL 
OOK? SEF soz QUT (FORTO) 2A 
OO! EL SOR POP HL. 
OUT = Bod FLISH Hl. 
505 RoO4 
OOH LUBRE SO IN A» (PRTC) SWAIT FOR SYNC PULSE 
conn  E&ou S07 AND SYNC 
OOUF 20FA beers} JK NZ, RO4 
SO? ROS 
OOEL  cCnF200 R S10 CALL BREAK? 300 SOMEIHING SO WE DUIN’T 
14 SREAD TOW EARLY 
OOE4 = 79 S12 Lo At 
OCES OEE7 - S13 : Lu Cc. PORTO 
S14 RUS a, 
QOE?  . Etna Sis INIR ieee ak Pe prearm Ytlo here 
OUR? an BiG LEC A ) dott ' 
OOEA  2OFB 517 wR NZ»ROG 
51S 3 : 
OORC EEE 519 Lo A, CTS. ANU. SELD 
OOKE  DSEF S20 CUT (PORTO) A 
OOFO EL 521 FOP HL 
OOFL cy RET 


S22 
S23 4 


ma DRIVE PAGE & 
7 LOC | OBO CONE M STINT SOURCE STATEMENT. ASM 5.9 
en S24 ? 
S25 45 
- BG BS FEA SE EE HE HE EEE SE EE EE SEE EEE EE EH EEE SE EEE HE EEE HEE EE: 
B27 $4 UTILITIES # 
Sg S TETEIE EE IEE EE HE EE SE IE SE SE IE Ee EEE IE ESE EE EE EEE HE HE at EE de dE 
520  ¢ 
= S30 3 
is OOF2  BEVF S41 BREAK? LU A. 7FH sRUW 7 
; QOF4 [BFE S32 IN A> (KBLPT) 
OOF7 ne 524 RET c 
OOFS  SEFE . 525 Lo A. OFEH 
OOFA DFE SSG IN Ay (KEPT) 
OOo IF 537 RRA 
oOoFD De S22 : RET c 
OOFE — FUS60014 S39 Lo CIY+ERRANR-Y) 5 14H 
O102 EF S40 RST RCIMERR 
S41 3 
S42 3 
S43 DELBC 
O108 FS S44 PUSH AF 
S45: ELA 
o104 OB 544 nec Bo 
O105 7a 547 LO AaB 
O106 Bt : 548 OR cC 
O107,  S0FH 540° JK N27 DELL 
o107 FI : SSO Por AF 
O10A CP S51 RET 
S52 3 
bi ha ied 3 
: Bq 5 
S55 $32 BIT CHECKSUM 
bi SIF THE DATA BY1IES ARE A.C, 0,E ETC 
S& THEN THE CHECKSUM IS COMPUTED ag: 
5 O244A + LOLSHR + LOBEHC + LOzLHL + ETC, 
S41 3THIS IS ACHIEVED THIS BY SUMMING THE 512 BYTES AND FROGRESSSIVLY 
S62  sSUMMING THE SUM, | 


83 $WE THEN HAVE: — 

564 FOL2#A + SL1¥B + Stoel + ETc 
S65 980 WE MULTIPLY THE SUM BY 12 AND ADL IT TO THE SUM OF SUMS 
S446 $GIVING THE CHECH 

$67 $1HIS GIVES COMP 
S68 4 

569 sHL“HL CONTAINS THE SUM OF SUMS 


E PROTECTION AGAINST DOUBLE BIT ERRORS 


570 DE’ OE CONTAINS THE SUM 
571 3hC CONTALNS THE ADURESS GF THE LATA 
S72  38C* CUNTAINS THE BYTE COUNT 
5723 3 
574 ECcns2 
OLOB ES 575 PUSH HL. 
o1oc = DOES 576 PLUSH 1X 
O1OE El 577 POP HL. 
OLOF O15200 57a Lu BC, CHDATA 
O112 oF 5/9 ALL Hl.» He 
O113 44 50 Lo BAH 


O1L4a 40 321 ; Lp. Cah SALWRESS IN BC 


- 


Loc 


O11S 
o118 


O11 


o1ic 
O11F 
O122 


O125 


Q126 
O127 


QO128 
O129 
O12A 


O12c 
O12 


012F 
0130 
Q1at 


o132 
O133 
0134 


O134 
01237 
OLss 
O139 


OSH 
OLac 
O13u 
QL SE 
o140 
O142 
O14 
0144 
O146 


O143 


o149 
O14A 
O14e 
0140 
OL4E 


O1L4E 
o1so 
O1S4 
Ors2 


210000 
110000 


Ly 


010002 
210000 
110000 


re 


OA 
O3 


83 
SF 
3006 


14 
2003 


vy 
13 
cy 


S82 
Ss3 
S84 


Soo 


ery 
587 
583 
5e9 
590 
S91: 
592 
593 
594 
S95 
5% 
597 
592 
599 
600 
601 
602 
402 
604 
605 
604 
607 
603 
60? 
&10 
411 
612 
613 
614 
615 
b1 
617 
413 
619 
620 
621 
622 
623 
624 
625 
626 

oF 
628 
629 
G30 
631 
632 
633 
634 
635 
b3h 
637 
639 
ba? 


CHE1 


CHK2 


CHES 


ORIVE 
OBJ CUDE M SIMT SOURCE STATEMENT 


LD 
LO 


EXX 


PUSH 
POP 
Pop 


HL:0 
fE,O 


BC, 512 
HL» 0 
DE,O 


A, (BC) 
BC 


ALE 
E.A 
Nt) CHK3 


u 
NZ, CHKS 


DE 


HL,» De 
HL; DE 


Br 

A,B 

Cc 
NZ>CHEIL 


DLE 


A,0 
E.a 
Qn 


E,A 
E 
0 


HL, DE 


HL.» DE 
HL. 


HL 
BC 
HL 
BC 


PAGE & 
ASM 5.9? 


$BYTE COUNT IN BC 
8S IN HL 
$$ IN LE 


sADL BYTE TO SUM 


sALL SUM TO SUM OF SUMS 


SNOW MULTIPLY SUM BY Siz 
PHOS 


sADL) THIS TO Ss 


SNOW COMPARE WITH AND REPLACE OLD CHECKSUM 
SE ERROR FLAG 


- DRIVE PAGE 7 
9 


Luc O81 COLE M STMT SOURCE STATEMENT ASM 53.4 
OLS 1E00 4640 Lu E.0 
OLS 7? 641 LO AL 
QLS4 BE : 4542 CF CHL) 
O1a7 S002 64S JR Z,CHK4 
OLS? it L44 ° INC E 
OLSA 7? 64S LO CHL DA 
O1Se 23 . 64G CHK4 INC HL 
OLSC 73 647 LO A,B 
O1aD RE 643 CP CHL > 
OLE 2502 b49 JR Z. CHES 
O160 in 450 INC E 
O41 77 651 Lo (HLA 
OL62 23 {52 CHES INC HL. 
O1463 C1 653 FUP BC 
O164 79 4654 Lo At 
O1é65 RE GQ3 Cr CHL) 
OLES 2502 54 IR Z, CHES 
OL1468 1 657 INC E é 
'OL4E5 77 453 Lo (HLA 
O16A 23 659° CHES INC HL 
O14B 73 &£40 LO A,B 
O16 BE G41 CP (HL) 
O1é60 2502 642 JR Z,LHE7 
OL6F ic 6463 INC E 
O170 7? 444 Lu CHL, A 
O171 7& £65 CHEZ Lo ALE 
O172 BR? » 664 OR A 
OL/3 Et 647 PCP HL. 
O174 Cc? bin RE | 
SSCKAM SCRAMBLES (OR UNSCRAMBLES) THE DATA IN THE UDRIVE BUFFER AT Ix 
$1 T TS CALLED HEFORE ECO ON WRITING OR AFTER ECD ON READING (CIF THE DATA 
515 Uk). 
SRY DOING THIS WE HUFE TO BREAK pe RELATIVELY CUMMON OFFS IN THE, DATA 
SANO IMPROVE THE RELIABILITY. 
SCRKAM 
O175 Dues PUSH Ix 
OL? 7 Et POP HL. 
Oo17e 115200 Lo DE» CHUATA 
O178 1 Ann HL. DE 
O170 O10002 LO BL, Sif 
SCR 
7E Lo A, CHL) 
EESS XOR SH F 
LE Lu (HLA 
23 INC HL 
‘Ok DEC Be 
73 LO A.B 
Ri OR Cc 
2OFS JR NZ.SCR 
cy? RET : 
ENI! 


fet 8 0 eae Toma 


om 


17/ 


ii. CO SH_HOOE PAGE 1 
Loc Of CODE M STMT SOURCE STATEMENT ASM 5.2 
1 3 
2 TARGHEE REGGE GIETEHIBE HEHE IGGEEEE GE gaat ae 
2 
4A 3 HOD CODE MOUULE - SHUHOWK. 5 
3 
‘ 4 JGR IE HEE EBM IEEE EGREE EERE eae 
7 3 
8 
9 
10 #INCLUDE SH_S_V. 5 
11.3 
iz 3 FEARS ER IEE HER EEE RTE EE EER TEER TEE RIC ILIE SE Ea aE aE dee 
13.3 
14° 3 SHADOW ROM SYSTEM VARIABLES 
135003 
14 JUABGHGGRT EGG GI EGE GEERT EEHEREEEE IRIE ban ib 
17) 3 
8  #INCL NEWVAR, & 
iv 3 
20 3 FRR REESE SE HEHE HAE SH EHR EEE HHT EEE EEE HIE EEE EGER SEE Hae 
Sl 3% # 
22 3% i 
23 SRR FE EAE RE HEHE AE EAE ESE ACHE SE EAE HEE EE EEE HER THEE TEE HE HEE GE EGE AE EGE Eat 
“4 63 
2 PR He SHE HEE EEE EE eee age HERE 
2a * 


27 SRR HEH EL EEE eae at SEE SEE HE EEE EH RE EE EEE aE 


29 8 

30 PORTIC EQu OEFH SULIRIVE CONTROL / STATUS PORT 

3 FORTO EG OE 7H SUATA FORT AULIRESS 

BS SELD Emu OFEH SURIVE SELECT DATA 

34 SELC Ett OFDH  . SURIVE SELECT. CLOCK 

35 WRITE Eau OF EH SWRITE CURRENT UN 

34 ERASE E@QU OF 7H SERASE CURRENT UN 

37 CTS Eau OEFH sCLEAR TO SENU OUTPUT 

ae 3 

3? SYNC EQu 2 3SYNC BYTE DETECTED SIGNAL. 

40 FROTECT , EGU 1 7WRITE PROVECT SIGNAL 

41 GAF EAU 4 SGAF SIGNAL 

42 BLISY EQU 10H 

43 3 

44 PLEN Eau 12 : SLENGTH OF PREAMBLE 

435 HOLLEN EGU FLEN+14+41 SLENGTH CF HEADER BLOCK PLUS PREAMBLE 

46 GLEN Eau HD_LLEN+51i2+1 SLENGTH OF DATA BLOCK 

47 HOLMAX Eu 255 SNUNBER UF BLUCKS ON TAFE 

438 TRYS Eau bal 3NUMBER OF TRIFS RUUND TAFE 

47 ;HEFORE GIVING UP 

50 GAFT3 EQuU 340 7THE DEC BC DELAY BETWEEN REALING 
a1 3A HEAUER, CORRECTING IT, TESIVING 
52 31F FREE AND WRITING A DATA BLoOWwK 
S3 GAPT1 Euu GAFTS+74 STHE DEC &#C DELAY BETWEEN WRITING 
=4 5A HEADER BLOCK AND WRITING 4 

SS SDATA BLUCK 

56 GAPI2 Eau S31 3THE DEC BC DELAY BETWEEN ENU OF 
57 $A DATA BLOCK AND BEGINNING UF 

$3 : SHEAVER BLOCK 


Loc OBI CONE M STMT 


100 
1o1 
102 
102 
104 
105 
104 
107 
108 
107 
110 
i114 
112 
113 
114 
115 
114 


SH HCE 
SOURCE STATEMENT 


STHE ABOVE TIMINGS ARE HOPEFULLY 
(POR A HEADER OF LE 


ERRUR Eau 
INSERT EGU 
DELREC Ett 
CHANS EW 
STEEND EAU 
STRBOT ER 
MEM Eau 
SELECT EQu 
SENDTV Ett 
QUTCH Eau 
INCH EGu 


Maeve we ve ve we vs 


3) SYSTEM RESTARTS 


R_BASEs Em) OOOOH 
ENTRY? EWU OOOSH ; 
CALBAS: EQU OO1LOH 


SYNTP: Ew OOLSH 
SHIUERR® Emu oose 

ROMERR! EQU 
INSER. Ett 
MAZE: Eau 


+ BASE ROW 


LASIK Eau Ss 
DEFADO EGU § 
STRMS EO 5 


, FOLLOWED BY A GAF OF 3.0 
SEY THE DATA BLOE LENGTH 21.3N5,FULLO 


Y Eau 
ERR_NR EGU 

FLAGS EGU Sits 
TV_FLAG EWU SC3CH 
ERRUSP EQU SCSlH 
NEWFFIC EQU Sit42H 
NSFPC EOI Sid 4 
PR EGU Sl4 5H 
SUBPPC EWU St47H 
BORDCR EU SC4sH 
VARS EQU StC4 eH 
CHANS. EGU SC4FH 
CURCHL EQU SCS1iH 
PROG EQU SOSH 
DATADD EW SCS7H 
EL_LINE EQU SCS?H 


Frisia. tae eT 


THE UEC BC NELAY IS 26 T-STATES 
7OR 7. 405 


5 FOLLOWE 


r 


WEo &Y A GAF UF 4Ms, 


sERROR HANDLING IN ROM 

3NARE SPACE IN ROM 

SDELETE SFACE IN ROM 

SADDRESS UF CHANNEL DATA 
FADDRESS OF START OF SPARE SPACK 


CHANNEL SELECT SUH. IN OLN ROM 
STV OUTPUT PROCEMURE 

CHANNEL OUTPUT ROT INE 
CHANNEL INFUT RUUTINE 


SHADOW RUM SYSTEM VARIAHLES 


HRS RSET HE AEH TEE ESE HEHEHE TE HE HEE HEHEHE SESE IE SEE HE SEHGAL EGE EEE GE HREE EGE ALGER GE HE HEE HE GE SE a ae at at 


Loc OR! COLE M STMT 


117 
118 
11? 
120 


SH HOI ; PA 
SOURCE STATEMENT A 


CHADD ERQU SCSUH 
X_PTR EWU SCIFH 
FLAGS2 EU SC4AH 
FLAGX EG Cet 
UDG EQuU 
SCRCT Eu 

ATTRUP EMU 5 
ATTR.T ERQU 
PLFLAG EGU SCe1H 


TR EQU SCBRGH 

$M TESEH HEA E TE SEH IE TE HE HE SE IESE HE HEE TE AE HSE AE HE HEE SE IESE HE HE SEE AE EEE IE HEE AEE HE HEHE 

$4 FIXett MiCcRCORIVE DATA # 

SORES SESE HSE HEH ETE EH HEHE HEHEHE AE HE SE HEE HAE SEE EE EAE HEHEHE EEE HE TE 

5 

: ; 

STHIS FIXED DATA IS FOUND IMMEDIATELY AFTER THE SYSTEM VARIABLES 
STHE SPACE IS CREATED WHEN 'HE SHALIOW RUM IS FIRST CALLED 

FLAGS3 EQU DR .  § 23734 SBIT O 1... RECURSION 


SBIT 1... AUTO RUN 
SHIT S «eo. HOOK 


$BIT 3... NET/RS232 
BIT 4 «e. LOAD 
SBIT Sw... SAVE 
SEIT & «2. MERGE 
SBIT 7 «2. VERIFY 
XR EG rs SINUICATES VERIFY NOT LOAL 
VECTOR ELI OH SEI7 3/74 SNEW COMMAND VECTOR POINT 
SHRT EQU VECTOR+O2ZH $2377 SSTART OF CALBAS SUBROUTINE 
Ho EQU SBRT+O1H 
ZILCH EQU SBRT+O04H 
BAUD EQU SBRT+OAH 323747 SRATE FOR RS232 
NTSTAT EQU BALII+OS $23/749 S°OWNS STATIUN NUMBER 
TOHORD EGU NTSTAT+OLH 323750 SRORDER COLOUR FOR I/0 
SERLFL EWU TORDRO+OLH $2751 SSERTIAL INFUT FLAG & CHARACTER 
SENT! OF DEFAULT SYS. VARS, 
:START OF VARTABLES 
SECTOR EWU SERLFL+O2H+DR $3753 SMICROORIVE SECTOR 
CHALDL EAU SECTOR+O02H-DR S23795 S TEMPORARY STORE FOR CHADD 


NTRESP EG CHADDL+O“2H 3.23757 , STORE FOR RESPONSE CODE 
3 THE eto LOCATIONS FOR A NET HEANER 
NTDEST EQU NTRESF+O01H 3753 SDESTINATIUN STATION NUMBER 
NISRCE EGU NTLEST+O1H m7 SS0URCE STATION NUMBER 
NTNUMB EGU NTSRCE+O1H SBLOCK NUMBER . : 
NTTYPE EAU NTNUMB+O2H '°DATA” (0) OR “CLOSE” (1) TYPE COLE 
NILEN EQU NFIYFE+O1H SHATA BLOCK LENGTH 
NTOUS EQU NTLEN+01H SUATA CHECKSUM 
NTHUS EQU NIDts+01H SHEADER CHECKSUM 


Hp bs 


+THE SIXTEEN LOCATIONS FOR FARAMETER COLLECTION 
D.STR1 EGU NIHOS+O1H §2S7E4 s1WO BYTE NUMBER 


* 


SH_HOUK ; FAGE bal 


Loc OB CODE M STMT SCURCE STATEMENT ASM 5.9 
23: JHUHUEUEGEREKKOK IN ASSERTION #CONT! 
23 ENDIC 
3 ‘ENUM 
OLOCAL MACRO #508 
RST CALBAS : 
DEFW #SUB 
’ ENDIM 
3 
242 OLDJP MACRO  #DEST 
242 uP #CIEST 
244 ENDM 
245 3 ‘ 
246 3 
247 3 
24g $ FRET HE AEE HE HEE HE HEE SEH HE HH HEE HAE AE EER TEE HEE HEHE EEE EAE HEE 
249 3H DATA # 
250 3 FATE EIRP Ebi dE 
251 3 “ 
252 ¢ fl 
253 3 JUIHIHIGI GEE EEE EE EEE CHANNEL Aaiietabatati abraded 
2543 
255 3 
256 $THE FOLLOWING DATA IS CREATED FOR EVERY OPEN MICROURIVE FILE 
257 AND SOMETIMES FOR A WORKSPACE IN MICROURIVE UPERATICNS: 
259 3 
259 3 


260 S0LL WRCH ADDRESS POINTS TO OOO 
261 S0LO0 ROCH ADDRESS POINTS TO OoOS 
262 CHIYFE Eau 4 
263° $NEW WROH ANDRESS 
264 $NEW RUCH ADDRE : ; 
269  CHLEN En CHYYFE+S SLENGTH OF THIS CHANNEL vaATA 


7 CHANNEL TYPE 


266 CHEYTE EQU CHLEN+2 SCURRENT @YTE POINTER 
267 CHREC Eau CHEYTE+2 SCURRENT RECOURL 

268 CHNAME ELI CHREC+1 710 BYTE FILE NAME 

269 CHFLAG EAU CHNAME+10 * CHANNEL FLAGS 

270° $ 

271 WRFLG EAU oO SWRITE FLAG BIT 

2/2 3 

273 CHDRIV: EAU CHFLAG+L SDRIVE NUMBER 0-7 ° . 

274 CHMAP Eu CHURIV+L SAUUKESS UF LIRIVE MAP FOR THIS FILLE 
275 $3 

276 CHHUK EAL CHMAF +2 iSTART OF HEADER 

277 HOFLAG Eau CHHUIR+PLEN 7FLAG BYTE AT START UF HEADER (BI ro=1) 
278 HUNUME = EQU HOFLAG+I = - #NUMBEK OF CURRENT HEADER/SECTOR 
279 ;FOLLOWED BY TWO EMPTY BYTES 

280 HUNAME EQU ~~ HLUNUMB+3 ;TAPE NAME 

281 HDCHK  EQU HUINAME+10 SHEALIER CHECKSUM 

J82 5 

283 sTOTAL LENGTH OF THE ABUVE PLEN + 15 

284 3 

285 CHURS EQU HOIGHE+ 4 SSTART OF UESCRIPTOR 

286 RECFLG EQU CHUES+PLEN *FLAG BYTE IN LESCRIPTOR (BITO=0) 
287 SHIT 1 = EOF 

Zee 7BIT 2 = SLYM 

287 RECNUM EAU RECFLG+1 ?NUMBER OF THIS RECORD 

290 RECLEN EQU RECNUM4 1 tLENGTH OF THIS RECORD - 


* 


Luc 


Oooo 
OOOe 


OOO4 
OOOS 


OOO 
OOOA 


OOOE 
OOOr 
OoL1)d 
ooll 
OO1LZ 
oo14 
OOS 
OO1g 
0019 
QO1A 
OO1H 


oO mm ho 
iH NUD G) to 


SH_HOQE PAGE & 


OBJ CODE M STMT SOURCE SfATEMENT ASM 5.2 

271 RECNAM Eau RE@LEN+2 SNAME OF THIS RECORD 
292 DESCHK Eau RECNAM+10 SDESCRIPTUOR CHECKSUM 

: 273 CHDATA EU DESCHE +1 :START OF DATA BLOCK 
274 DICHK EW CHOArAtS 12 SQATA CHECKSLIM 
275 3 
276 CHANLN Eau DHE + 1 SLENGTH OF ALL THIS 
297 3 
298 BPE HEE EEE EEA PEE EEE ER SERRE ESE HEHE ESE apap ae 
299 5 
300 $A MICRODRIVE MAP IS A BIT MAF OF ALL SECTORS UN A MICRODRIVE 
S01 $THE BITS ARE COUNTED FROM O Tu HE..MAX-1 THE LENGTH 
202 30F THE MAP IS THEREFORE GIVEN BY!:— 
303 $5 
204 MAPLN Equi 32 
SOS 5 
304 $THE MAP IS CREATED FOR EVERY URIVE CONTAINING AN OFEN FILE 
307 3 

OS #LIST ON 


FUSGO0FF 
FOUCBOL OS 


HOOK 1 


GLOBAL HOES 


EXTERNAL RETHAS 

EX TERNAL ALT WPT, ACT_UT, INWKYF, OUT_T, OUT_T2, IN_BY1 

EXTERNAL OWT Ny QUTNET, GE PPAR, ACTON, NOPEN, INPAK, RSPUND, CUTPAK 
EXTERNAL NTEMP. ONETO, NTULSE, INSC 1, BLCOL 


EXTERNAL URVSEL, OPENF, CLUSIX, READIN, DELL X,WRREC 
EXTERNAL. ERA 


EXTERNAL WTHOR, DECSEC, ECH, ECD, ROYLE, DELBL, WRELK, FREE? 


IDEAL WITH THE HUME CONES 

SHL PUINTS TO THE “DEFR- 

STHE ORIGINAL AF IS ON THE STACK 
57 AT HOLOS THE Hoi Cone 


CF HULEN/2 ;NUMBER OF HOOK ADDRESSES IN THE TABLE 
IRC, HOUK 1 ; 


RST SH_ERR 


DEFB 12H 7° HOOK CODE ERROR? 
LO CIY+ERR_NR-Y),OFFH SSIGNAL NO ERRUR AFTER ALL 
SET 2, (TY+FLAUS-Y) SIN CASE THERE IS AN ERROR 
iSO WE ENUW WHO: TO RETURN-TO 
INC HL 7FORM THE RETURN ADDRESS 
EX (SP)>HL 
PUSH HL SPUT IN ON THE STACK ABOVE THE ‘AF’ 
AUD A.A ;DOUBLE THE HOUK CODE 3 
LD D,00H 
LO ELA t 37DE’ NOW HULDS TABLE CFFSET 
LD HL,H_BASE sHOOK TABLE BASE ADDRESS 
ADD HL. OF sINUEX INTO TABLE 
LD E, (HL) 3FETCH LOW BYTE 
INC HL 
LU D, CHL) 3FETCH HIGH BYTE 


Pe ae aa AaB ade a hag 


~ 


» 


LOG 


OLE 
OO1D 
ogee 
oozed 
 OOgE 


0027 


Oo2za 


Sa ae 


OOLA 
Oo2cr 
OOBE 
OOBO 


OO3E 
OOAO 
Oo? 
Oo44d 
OO4dG 
No04s 
OOdA 
OOF 
OU4E 
OOO 
Oosz 


* O05 4 


O0346 


Oo88 
OOSg 


OoOsu 
OOS8E 
O0461 
O65 


00467 
0068 


SH_HOCIK KAGE = 7 
OBJ COLE M STHT SOURCE STATEMENT SM 8.9? 
349 
Fi : POP AF SFETCH ORIGINAL AF“ 
aiodoo = x LO HL, RETBAS  sTHE RETURN IS VIA RETBAS AS USUAL 
ES PUSH HL . 
EH EX DE, HL 1JUNP ADURESS fa HL 
ES JP (HL) WNOW UMP TO 11 
SRECURNING TO RETBAS AND HENCE 1 CONTINUATION ADDRES 
$ et kt i i i nn i nC it kt ch a tt i i i i 
aRERSC HAL LE bl, CORTROMABLD SFETCH THE ‘PASSED’ ADDRESS 
ED JP (CHL) 
ce H-RE} RET ;WILL EFFECT THE INSERTIUN OF THE SHADOW S. V. 
A sch setee en eimieen ee ot ee ee On eg a aes 
H_BASE 
SOO R —DEFW  CONIN s$COUE 27 
&EOO R DEFW = CONWUT | SCL et 
Q000 xX — DEFW INLBYP SOU : 
O00 : —DEFW WU LT2 $COUE 30 Fe 
7BOO R —DEFW 9 ZXOUT «SCO 31 2X PRINTER OUYPUN 
a R “DEFW oo DIRECT $COWE 32 TEST KEYBOARD =~ 
x “DEFW  ODRVSEL  $CODE 33 URIVE SELECT 
oo00 X DEFW 0 UIRFEMF OPEN A FILE 
9000 x DEFW | CLOSIX 5 CLUSE A FILE 
: x DEFW ERA . DELETE A FILE 
R DEFW READS REAL SEQUENTIAL 
x DEFW | WRREC 2 WRITE RECORD 
R DEFW  - REAURN READ RANDICM 
R DEFW | REALISE: Q REAL SECTOR 
O51 R UEFW -READINX ¢COWE 41 REAL NEXT SECTOR 
1001 R DEFW | WREC 0 SCQUE 42 WRITE SECTOR 
C000 x DEFW oO ORENF «= §CODE 43 CREATE MICROURIVE BUFFER 
O00 xX OKFW DELIX  sCOwE 44 DELEVE MICRUDRIVE BUFFER 
2000 x LERW NTEMP (COLI 45 OPEN A NETWORK CHANNEL 
AZ00 R DFW NUCLOS SCORE 44 CLOSE A NETWORK CHANNEL 
BOOO R DEFW GE_LPAK CONE 47 GET NETWURK PACKET 
GOOO x DErW ONETO $COLE 48 SEND A NETWORK PACKET 
2700 R DEFW  H-RET $COUE 49 CREATE SYS1EM VARIABLES 
2200 R DEFW HOCALL  $CALL A DESIGNATED SUERUUTINE 
H-LEN EGU $-H_BASE 
I a ci ia a i ln Sans hal he So ces an ca a en ec ac tac TN ag ae hk ett se atts ae 
CONIN SKEYEQARD INPUT RUUD INE 
FR EI 
FDCEOLAE RES 5, C1Y+FLAGS~Y) 
INt 
76 HALT 
QLDCAL | O2EKH +KEYECARD SCAN 
FLICKOLSE BIT 5, (1Y+FLAGS~Y) 
2EF 6 JR Z,1N1 
300850 Lu Ay (LAST_K) 
RET 


Cc? 


Sciabiciahaeatht biti eodmamcnsmn es tho 


OQ6E 
OO71 
Oo7 3 
QO7S 
C077 
Oo7A 


Q07B 
O07C 
OOTE 


ooao 
QOOSL 
OOS 
ooss 
0037 


on8e 
Oost 


QOSE. 
QOV2 


OOYs 
OOVS 


OOV? 
ooyn 


OOPFE 


OOAL 
OOAL 


OAS 
OOAS 
QOA 
Og 
COAT: 
Ocean 
OOAF 


CDEC) 
OOn3 
OOS 
QOQHS 
QOR? 


OR! CODE M STMT 


FS 
SEFE 


21scsc 


36FF 


Fi 


DICK S4E 


pees 
B08 


FLV3G0007 
EF 


po340u 
couooad x 


DOC B4 SSS 
cs 


CHOdOO x 


E? 
14 


Choo0o Xx 
ODES 

Et 

O11401 

n7 

ES? 

CP 


BARGES 
Fa 
COO x 
BO0A 


407 
402 
409 
410 


SOURCE STATENENT 


CONDUT 


QuT. 


2XQuUT 


DIRECT 


REALSA 


RD 
-READRN 
ROS 


NCLOS 


GE.PAK 


SH_HOUKE 


Lo 


OLDCAL 
Pur 
OLDCAL 
RET 


PUSH 
Lo 
lR 


Ar 
A,0FEH 


HL» SCROT 
(HL) »OFFH 
SELECT 

AF 


ror > UWZRCH 


AF 
A,3 
CUT. 


A 
A, (OFEH) 


1IFH 
1FH 


1, ¢1X+RECFLG) 


Z,RO1 


(IY+ERRNR-Y)>7 


RUMERR 
CIX+CHREC ) 


READIN 


2) CLX+RECFLG) 


Zz 
DELIX 


SH_ERR 
14H 


NTCLSE 
IX 

HL. 
£8C,NLEN 
CALBAS 
DELREN 


A, (DR+TOBURD) 


(OF EH) >A 


INST 
NC. GEERR 


FAGE 3 
ASM 5.9 


tFERMANENT STREAM 


TRESEY SCROLL COUNT 


3CARRY SET IF <> 1FH 


_ EOF? 


SERROR RETURN 


sNEX) RECORD 
;READ RANDOM 


ySLVM FILE? 
INO. . UK 


+YES..«REMOVE EVIDENCE 
SWRONG FILE TYPE 


SEND) ANY REMAINING DATA 


. 


SAND DELETE THE BUFFER 


$SET THE BOKDER COLOUR 


SEXIT UN TIMEQUT 


AaRS 
OOC& 
OOC7 


Oona 
oocn 


OOLIO 


Oons 
OoTw 


Oot? 


OonR 
OORE 
OOO 
QOEL 


OOEZ 
OOE 4 
QUES 
OOK 


Oe g 
QOEC 
QOEF 


OOF 1 
OOF 4 
OOFS 
OOFS 


OOFA 
OOF B 
OOF Fr 


o100 
O103 
O104 


oO10s 
O108 


OLOB 
OL10E 


Ue CODE 


CLGgOO 
2005 

FR . 
7 
RS0900 


~Cso0000 


Z1FFOO 


Spey epee 
peas Mie] i 


Cpo000 
HO7ES9 
DORBEOU 


2807 


COO 


ODES. 
El 
114300 


i? 


COOOOO 
CLowoe0g 
SO00F 


L1OFOO 
1? 
cno0eo 


2006 


7 
DOCR4 S36 
Cs 


CDOSFOL 
37 
cy 


Z1IPFOO 
220950. 


CHOOOO 
1ep2 


M 


Ps 


STMT SOURCE STATEMENT 


465 
464 
AL? 
4G 
4h9 
470 


474 
472 


473 
474 
473 
4T& 


eeanea 


509 
S10 
S11 
S12 
813 
514 
515 
514 
517 
518 
51? 
520 
S21 


paeys 
Saat 


SH_HOtK 


GE.WERR 


READS 


RDSC1 


RUSCZ 


RUSC3 


GETPAK : 
NZ GELERR tUR ANY OTHER PROBLEM 


BWCOL- SRESET BORDER ANLI RETURN 


B_COL 


HL» HEI_MAX 
(SECTOR). HL 


WIHUR ; 5GET A SECTOR HEADER 
A» CIX+HONUMB) 
CEX+CHREC) $15 IT THE RIGHT ONE 


Z,RDSCS 


LEC SEC 
NZ,ROSC1 

SH_ERR SFILE NUT FOUND 
11H 


IX 

HL 

DE, CHDES+PLEN 
HL» DE 


ROUBLE. ;REAL THE BLOCK 
ECH ; 
NZ, RUSCS SCHECK THE DESCRIPTOR 


LE, CHUATA-CHIIES-PLEN 
HL» CE 
Ec SAND THEN THE DATA 


;CLEAR THE CARRY FLAG 
2, (IX+RECFLG) $15 IT SLYM 
Z INO JUST RETURN 


VorD ; 3HERE IF BUFFEK ERRONEGUS OR SLVM 


HL.» HE_MAX 
(SECTOR) » HL 


WTHDR ' $WAIT FOR A HEADER 
RIVsCZ SUSE THE FIRST FOUND 


ae 


oe SH_HUE PAGE 10 
Lot OBJ CODE M STMT SUURCE STATEMENT ASM 5.9 


OLL9 elFFOO 522° LO ~ HL, HOLMAX 
O11 : 324 LO (SECTOR) »HL 
S25 PUSH Ix 
326 POP HL. 
S27 Lo DE, CHDES 
O1ic S23 AQT HL.» EHE 
O1in S22? PUSH HE, 
OLIE 110cec 330 Lo DE. PLEN 
OLz1 1? 231 Ant HL. DE : 
O122 is TOL Alera) X S32 CALL ECH FERRUR ENCOWE HE DESCRIPTOR 
OLE LLOP OO S33 LD DHE CHMIAT A= WALES FLEN zi 
OL iy a34 Ant His EE 
O12? CDOOOY X 38 CALL Eu SANT THE LATA 
S26  WRSC1 
Giec LDOOOO X S37 CALL WTHDR WAIT FOR @ HEALER 
Ober RUT Rae? mtg Lo Ay CE X+H INLINE } 
i) 4 yt CIE OL o Cr CLX+CHRER) SIS 2) THe RIGHT ONE 
OLS eo 7 a4 IR Zr URS! 
O1S7  CuOoOO X CALL DECSEC 
OLA ZOFO JR NZ,WHECL 
o1se E/ RST SH-ERR ;FILE NOT FOUND 
O10 1 DEFE 11H 
WRSC2 
OLS DBE F- ' IN Ay (PORTE) $1S VHE DRIVE WRITE PROTECTED 
O140 ESOL ANT PROTECT 
O142 2002 JK NZ, WRSC3 
, O1L44 E7 RST SHWERR SDRIVE WRITE PROTECTED 
0145 OE TErB OEH 
WRSC3 
—O144 BEES LD A, ERASE. AND. CTS.AND. SELL sERASE ON 
143 OSEF ULUIT (FORTC) A 
~O14A 016801 LD EI, GAPTS3 
o140 CNO0OO X CALL LELBC 
OLS Et ; POP HL. IWRITE DATA 
OVS CHoOgd0 Xx CALL WARE ‘ 
O14 BkRE Lu A, CTS. AND. SELU 
O1SS DSEF CLIT (FURTCIA SERASE Cr 
O1S3 LUQOOO x CALL FREE? SFIND POSITION GN THE MAF 
OLSy 73 Lu ALB 
O1e¢ Ed UR (HL) 
OL 77 LO (HL)A 
OLE Cy RET sMARK MAP AND RETURN 
VOID 
OLS DUES PUSH IX 1COPIES THE FIRST BYTE OF A BUFFER 
OLed EL FUP Hl SINTO THE REST 
O1é2 115200 Lit DE» CHUATA 
O1¢é5 ly ADD HL.» CE 
OL4E6 54 LD DH 
0167 So LD" Eat 


ee ee ee eee 


6°S WAY 
TT (90d 


TBEHSINIANNEEdddd § 9 BS 
Shs 

Lay bSs 

i uid GSS 


TTS 3a a ZS 
a1.- ONT tS 
ANSWEIGLS BOMNOS LWS 


AGH HS 


Wo Sdn rad 


207 
A 8h 


iw 


5 FETE HE SE IESE ETE HE GE TE SEE SE TE SEE SE EERE EEE HE EE EEE EE EE HEE 


. 
? 


STHLS MOUULE WILL CONTAIN HIGHER LEVEL SOFTWARE FOR THE 
‘ 9 SsMICROURIVE. 
10 $THE PROCENURES WITHIN THIS MOLLE RELATE TO KEYWOARDS 
11003 0N THE SPECTRUM 


f\U } 
rane 4 VHSOF T PAGE = 1 
Loc OR CONE M STMT SOURCE STATEMENT ASM 3.9 
1 F REMEBER HHH RHHRHEHRREHHHHRHHHHKRHHRHHEHRHEHEH 
2 34 # 
. B oft VHSOF TS % 
4 3% 23/3/82 + 
So gk t 
& 
7 
bs] 


Zo 

13 #INCL NEWVAR. & 

14 3 : 

DSF RARE HSE HE ESE HE HAE HE IE SEH HEE HEE HEE SE HE ESE AE EE HE EE EEE OEE EE 
1& 3% NEWVAR. & + 
17. 3 29/4/33 + 
DSS REAR TE HERE HE TE SEE RE TE AE EAE AE TEE DE TEE HEHE ESE RE TEE ETE TEE TE ESTEE TERETE ETE ETE HTCIE AE 
Ivo 


20 5 HR TE HEE HEE SETHE EE HEHE EE ETE TE TE TE EE HEHE FE HE SEE EE IE SEE HEE HEHE SE EE EE 


ela SYSTEM EQUATES * 

22 STE HEAE TE TE ETE HE HE EIR ME HEE HEE TE SE EE HEE EEE EE EEE IE EEE EE EEE IE dE HEHEHE HE EE 

243 

28 PORTO au OEFH SUURAIVE CONTROL/STATUS POR’ 

26 PORTO eeu OYH SLHATA PORT ANIRESS 

ay. 3 

2h SELD Eau OFEH SDURIVE SELECT DATA 

ZY SELC EGU OF CH SURIVE SELECT Clock 

BO WRITE En OF BH SWKITE CURRENT CIN 

31 ERASE Eou Or JH SERASE CURRENT GN 

se CTs EQU OELH SCLEAR TO SENL OUTPLI 

B23 

24 SYNC Eau z SSYNC BYTE DETECTED SIGNAL 

S50 PRUTECT EQU 1 SWRITE PROTECT SIGNAL 

B& GAP Eau 4 ;GAF SIGNAL 

37 BUSY EQU 10H 

Be 4 

32 PLEN Eau 12 $LENGTH OF PREAMBLE 

40 HELEN ECW PLEN+14+1 TLENGTH OF HEALER BLOCK FLUS FREAMBLE 

41 MULLEN Emu HO_LEN+5 12+1 ;LENGTH OF DATA BLOCK 

42 HOLMAX ELU ERS SNUMBER UF BLOCKS ON TAFE 

43 TRYS EQU ba SNUMBER OF TRIPS ROUNL TAFE 

44 SBERORE GIVING UF 

45 GAPTS Eau B4O TTHE DEL BO DELAY BETWEEN READING 
4& : SA HEADER, CORRECTING IT, TESTING 
47 31F FREE ANL) WRITING A LATA BLUCK 
43 GAPTI Eu GAFTS+74 TTHE DEC EC DELAY BETWEEN WRITING 
49 3A HEALER BLOCK ANL) WRITING & 

no TOATA BLOCK 

S1 GAPT2 Ew S31 STHE DEC BC DELAY HETWEEN ENL OF 
52 5A CATA BLOCK AND BEGINNING OF 

53 - SHEALER BLOCK 

54 : STHE [eC HC DELAY (5 246 T-STATES 
babs] SOR 7.4uS 


S& sTHE ABOVE TIMINGS ARE HOPEFULLY 
57 $FOR A HEADER OF LENGTH 840U5, FOLLOWEL BY A GAF OF 3.04MS, FOLLOWEL 
S2 SRY THE DATA BLUCK LENGTH 21. 3M5,FULLOQWED BY A GAF OF 6MS., 


a a Bo ptecioad, 5 Leyes 


of 


LOC 


ag 

: 40 

, &1 
&2 

G3 


ba 


co oo 


OQ be 


nom coco e 
te 


x 


“6 0 tG 


wh 
Lb ip bore oO SO NO on 


S 


VHSOF T 
ORS CULE M STMT SOURCE STATEMENT 


? 

ERROR 
INS: RT 
DELREC 
CHAN'S 


. 
? 
» 
? 
2 
? 
s 
? 
8 
? 
. 
2 
. 
2 


$ SYSTEM RESTARTS 


EQu 
Eu 
Emu 
EC 
Emu 
EQuU 
EQu 
EaQu 
Eau 
EQU 
EQuU 


LSE4H 


SERROK HANULING IN ROM 

IMAKE SPACE IN ROM 

SDELETE SPACE IN ROM 

FADURESS OF CHANNEL DATA 
SALULDRESS UF SIART OF SPARE SPACE 


SCHANNEL SELECT SUB. IN OLD RUM 
81V DUTPUP PROCEDURE 

SCHANNEL OUTPUT ROUTINE 
SCHANNEL INPUT ROUTINE 


SHANUW ROM SYSTEM VARIABLES 


RORASE:! EMU OOOOH 
ENTRY: EQU OOOGH 
CALHAS: EGU OQ1OH 
SYNT: EQU OOLSH 
SHUERR?: 2 
ROMERRs 
INSERW. 
MASK: 
5 BASE ROM ADURESSES 
LAST_LK ERU SCOSH 
DEFADO EGU SCOBH 
STRMS : 
Y 
ERR_ONR 
FLAGS 
TV.F LAGS SC SCH 
ERRUSP Eu 
NEWRPC EGU 
NSPec EQu 
PPC Ew Sc 
SURPPC Eull & 
BORDCR EU 
VARS ° Eu 
HANS. EGU 
CURCHL  EQU Sit 
PROG Eau 
OArAnD EU 
ELLINE Eu 
CHADD Ew 
X_PTR EQU 5 
FLAGS2 EWU 
FLAX Eau 
LIDS EQU SC/7 RH 
Fie ads iar own 


SHEE EEE REE EEE EE HEHEHE EEE EEE ESE HE HE SEE EEE EEE EE EE 


"LOC OB CODE M SrMT 


~ 117 
118 
119 
120 
121 
122 
123 
124 
125 
124 
127 
23 
29 
130 
134 
~ 132 
133 
134 
135 
134 
13/7 
128 
139 
140 
141 
142 
143 
144 
145 
144 
147 
142 
149 
150 
151 
15:2 
153 
154 
155 
154 
157 
153 
15Y 
140 
141 
162 
163 
164 
145 
166 
147 
168 
169 
170 
171 
172 
173 
174 


VHSOFT PAGE 3 
SOURCE STATEMENT ASM 3.9 


SCRCT Eau Scs 
ATTR-P EGU S 
ATTR.1 EQU & 
PLFLAG EGU 


DR Eau SORGSH 
3 
J MEE SE HE SEE HE FEE FEE HEE SE TE SE TE IESE EE HE EE HEE SE HE SE ESE EE EE ESE EE EE EE SE dE dE dE 
5H FIXED MICRUURIVE DATA * 
FH EE EEE EE EEE EE TE HE SE HE SE EE EEE EEE EERE HEEL HEHEHE 
STHIS FIXED DAIA IS FOUND IMMEDIATELY AFITEK THE SYSTEM VARIABLES 
3 THE SPACE ITS CREATED WHEN THE SHADCW ROM IS FIRST CALLED 
¥. 
BLpGS 2 EGU DR 323734 SHIT © ... RECURSION 
SBLT 1... AUTO RUN 
SRL) 2 4... HOOK 
SRIT 3 1... NET/RAS2S2 
$RIT 4 ... LOAL 
SHIT S 1... SAVE 
SHIT 4 ... MERGE 
SEIT 7 «2. VERIFY 
XR Emu vA SINUICATES VERIFY NOT LOA 
VECTOR EWU O1H $23 /735/6 SNEW CUMMANG VECTOR FOLNT 
SBRT EQU VECTOR+O2H $3 23737 SSTART OF CALBAS SUBRULIT INE 
HLL EGU SERT+HOLH 


ZILCH EGU SBRI+O4H 
BALIL EGU SHRT+OAH 
NTSTAT EWU BAUID+OLH 


SRAIE FOR RSe32 

s°OWN’ STATION NUMBER 

IOBORD § EAU NTSTAT+O1H SRORDER COLOUR FOR 1/0 

SERLFL EQU TORORE+O1H SSERIAL INPUT FLAG & CHARACTER 
SEND OF DEFAULT SYS. VARS. 


SECTOR SMICROORIVE ‘SECTOR ? 
CHAD. ) 2 S735 STEMPORARY STORE FOR CHUAnu 
NTRESP Ew CHADL.. +02H 523757 SSTORE FOR RESPUNSE CODE 


sTHE EIGHT LOCAT TONS FOR A NET HEADER 
NTDEST EQU NIRESF+HOLH 323 SDESTINATIUN STATIUN NUMBER 
NISRCE EQU NTLEST+OLH 323759  $ SOURCE STATLON NUMBER 


NINUMB EGU NTSRCE+OLH 323 SBLOCK NUMBER 
NTTYFE EGU NTNUMEB+02 $E3762 S°DATA” (0) OR “CLOSE” (1) TYRE CUDE 
NTLEN EGU NETYFE+O1H 323742 SDATA BLUCK LENGTH 
NTOCS EGU NTLEN+O1H 723764 3 
NTHCS EWU NP LS+O1H SZS7E SHEADER CHECKSUM 
STHE SIXTEEN LOUVATIONS FOR PARAMETER COLLECTION 
DLSTRi | EQU NTHOS+O1H $23766 sTWO BYTE NUMBER 
SSTRL EGU DUSTRItO2H 323765 sSTREAM NUMBER 
L_-STRi Eu DUSTRI+O03H 322749? SLETTER 
NUSTRL = EGQU DUSTRI+O04H 323770 SNAME DETAILS (LENGTH & START?) 
DSTR2 EGU DLS TRI+OSH 323774 $ ## SECOND SET ## 
S.STR2 EQU DLUSTRI+OAH 323776 


VHSCET PAGE 4 


Lac OB COVE M STMT SOURCE STATEMEN' ASM 3.9 
175) LISTR2 EGU DLSTRI+0BH 122777 
176 N-STR2 EGU DLSIRI40CH 323778 
177 
178 


177) StLao EQ DUST RL +0SH 
180 6SC_OB EWU DLS RLtOeH 
131 Sclou EQU LULSTR1+OKH 
182 SULoOF EUu OuSTR1+00H 


SSECOND SE) FOR SCANN 


183 
184 
185 *THE NINE LOCATIONS FOR “SAVE*, “LOAD? ETc. 


154 HOLoo EGU DLS i+LOH 
187 HD_OB EGU HOLOO+OLH 
188 HO_Loc EGU HOLOR+OLH 
182° HU_OD EQW HILOC+OLH 
170) HD_LOE EQU HOLOT+01H 
1710 HULOF EQU HULOE+O1H 
iv2 HDL1o Ell HO_LOF+OLH 
FS HULL EGU HDLLO+O1H 
HO_L12 EWU HULL L+01H 


STYRPE COE 
SLENGTH OF BLOCK 


+START OF BLOCK 


sPROGRAM LENGTH 


a 
ony 
= 

oy 
a 
on 
= 
ron 
“y 
= 
= 


Mawr ove we we ue ve 


sLINE NUMBER 


COPIES EaQu HDL Le+1 P2379 1 


ROMADUY EQU HULLO+O1H S23739 SPASSING ADDRESS FOR HOUKS 


URILEN EQU COPTES+01H 
NOLEN EGU O114H SLENGIH OF @ NET BUFFER 


3 —RS232 PORT DETAILS 


KS232 EQU OF 7H SSERLAL DATA PORT 
EBLPT EGul OF EH SKEYROARD FORT 
2 STATUS EAU OfFH SSERIAL STATUS PORT 
210 DTR EGU OSH iMASK FOR OTR QUTPUT 
211 
S12 3 NET PORT DETAILS 
21S SERIAL EG OF7H PSERTAL DATA FURST 
214 WAIT EQU OEFH FWAIT FORT 
215 
E16 3 
217 3 
218 3 FERE HEHE HERE HEE HAE HEH HAE HEHE EEE EEE HE HEE EEE EEE EE HE IEEE GE 
21? 3% MACROS ; # 
22 3 SERRE REESE HEH HEHEHE LEHR HE HE SEE HEHEHE ESE HE EE EE RIE HE SEE SEE SE IEEE EE GE SE GE 
221° 3 
222 RST MACRO #AUDR THIS MACRO WILL BE USE TO FLAG 
223 RST #ATILN iCALLS 10 THE ROM WHEN THIS S/WARE 
224 ENUM $13 CONVERTED TO SHALOW RUM FORM, 
2 : . 
226 ASSERT. MACRO FHOCINL! 
22 CONC JNO. CHOCIMI) 
228 JHEHEOEEEEERROK IN ASSERTION #COND x 
229 ENDIC 
230 ENDM 
231 3 


237 OLUCAL MACRO #SUB 


ee ciakal sce a ee 
fermi 8 pm nig 


VHSOF T FAGE . & 


LOC WRU CODE M STMT SUURCE STATEMENT ASH 5.9 
2343 RST CALBRAS 
234 DEFW  #SUB 


ENIM 

3 

OLOWIP MACK 
JP 
ENUM 


EAE RE HEE TE HCE RE HE TE IESE HE TERE SEE SEE JETER E SEGRE TEE EES EEE 
+ OATA a 
FE SERENE ESE HAE SESE SE HE HEHE SEER TEE TEETER TERR ERE HEROS HE RHE ETE 


HEHE HEHEHE EEE TE EE HE HEE EC HAIN tt ae dE SEE AE EEE HE dE aE 


SHE FOLLOWING DATA 1S CREATED FOR EVERY OPEN MLCRODRIVE FILE 
SAND SOMETIMES FUR A WORKSPACE IN MICROURIVE OPERATIONS 


< 
? 
® 
? 
. 
? 


OLD WROH ADLIRE 
SOLD RUCK ARDRE 
CHTYPE Ett 
SMEW WROH ANDRE 


POINTS TO 0008 
POINTS 1 ooOo8 


STHANNEL TYPE 


: SNEW ROCH ADRRESS 

260 CHLEN Eau MHTYPE+S SLENGTH OF THIS CHANNEL DATA 

261 CHBYTE Eu CHLEN+2 ; PLURRENT 8YTE FPUINTER 
CHREC EW CHBYTE+2 SCURRENT RECORL 
CHMAME Eu HA + 1 610 BYTE FILE NAME 

264 CHFLAG EMU CHNAME+10 SCHANNEL FLAGS 

fe OF 

66  WRFLG Emu QO SWRITE FLAG BIT 
CHURIV  Elu CHFLAG+ 1 SDRIVE NUMBER O-7 
CHMAP ECHL) CHURTV+L PALORESS UF DRIVE MAF FOR PHIS FILE 
®HHUR Ei IHMAP+2 737TART OF HEALER 
HOFLAG EGIL CHHUR+PLEN SFLAG BYTE AT START OF HEADER (BRI10=1) 
HUNUME = EQU HUFLAG+1 SNUMBER OF CURRENT HEABDER/ SECTOR 

SFOLLOWED BY TWO EMF IY BYES 
HUNAME Etil HUNUMB+3 S TAPE NAME 
HOCHE EG HOMAME+1 0, SHEADER CHECKSUM 
STOTAL LENGTH OF THE ABOVE PLEN + 15 
CHDES Eau HIWCHE + 1 START OF DESUCRIFTOR 
RECFLG EGU CHOES+PLEN SFLAG BYTE IN DESCRIPTOR (RI roO=0) 
sBIT 1 = EOF 
7 HIT 2 = SLVM 

RECNUM Et RECFLG+1 SNUMBER OF THIS RECORL 


= RECLEN Etul RECNUM+1 SLENGIH OF THIS RECORD 
234 RECNAM EQU RECLEN+2 ;NAME OF THLS RECORD 
287 OESCHK EU RECMAMN+10 SOESCRIFTOR CHECKSUM 
288 CHUATA EGU DESH +1 SSTART OF DATA BLOCK 
4289  OCHE EQU CHDA TAILS DATA CHECKSUM 
2?O  $ 


VHSOFT FAGE & 


Loc OB COE M STMT SQURLE STATEMENT ASM 3.9? 
CHANLN EMU DGHE +1 SLENGTH OF ALL THIS 
‘ SACS HEE ESE EEE ET Pt AE II HEISE IE ERE aE 


$A MICRODRIVE WAP TS A BIT MAF OF BLL SECTORS on A MICRODRIVE 
STHE BITS ARE COUNTED FROM O TO HOLMAX-1 THE LENGTH 

30F THE MAP IS THEREFORE GIVEN BY:~ 

3 

MAPLN EGU 32 

iTHE MAP TS CREATED FOR EVERY URIVE CONTAINING AN OFEN FILE 


#LIST ON 


? 
BO GLOBAL OUPENN, OFENF, FORMAT, CAIN 
307 GLUBAL ; ERA. MANY? 
SOR § 
209 EXTERNOL TX, NERRUR, FREE? CP STR sHISOET 
B10 EXTERNAL AUING RONX TT,» WTHOR, LIST? 
S11 EXTERNAL. MWRISH, MRUICH, OECSEC, SPACE? 
B1z EXTERNAL ECH, ECK WAPREEs MARE, REALING 
Bis EXTERNAL ROWELL RUBLE WRHBLE WRELE SORIVES 
214 EXTERNAL « URVSEL, GF 7a DRVO 
Bis EXTERNAL HEX, OF) UTS10, 0PHEX, LISMArF s BLOCKS 
S14 EXTERNAL DEL BC 3 DUMMY 
S17 
Sig 3 
BAF SRE ESE EER EEE HE EE IEE HE EEE EE EE 
3 UPENN, OF ENF # 
SOSH HEHE ER EE HEE HH HEHE EE ESE EH EEE EEE IEE HE EE 


3THE OPEN SUBROUTINE IS USEU TO SE 
SMAPPING THE FREE SECTORS IN 
sEXIST AND READING THE FIRST R 
SOPENN TS CALLED BY THE SYNTAX CHECKER WHEN THE COMMANI! 
SCPEN #N FILENAME [5 FOUND, 

THE STREAM AND FILENAME ARE STORED IN SYSTEM VARIAHLES BY 
STHE SYNTAX CHECKER 


ARCH A DRIVE FOR A FILE 
THE FILE ODOESN<“T ALREADY 
IRD IF THE. FILE DOES EXIST 


SOPENF UPENS A MIURODRIVE FILE IN THE SAME WAY WITHOUT 
SUSING A SPREAM THIS IS FUR USE BY THE MOVIL, SAVE AND 


Re SLOAL COMMANLS 
3 ; 
OFENN - 
LO A» (OR+5_S1R1) 3 
apo ALA SGET CHANNEL ADDRESS 
Lo HL. SPRMS+4 
LO EA or 
9008 73 : HL» Lil . - : iid ore 
arereys) PUSH HL. . 
Ooor Cosroo0 R CALL OPENF 3 THEN OPEN FILE 
QOOF DOCBIS4s B1T WRFLIG, CIX+CHFLAG) 31S IT OPEN FOR WRITE? 
JR Z.ORENG 


QOS ZSoOg 


Loc 


Oops 
OOL7 
Ooly 
ACR 
Oo 
ooilu 
021 


OOZ2 


OOZE 


OOZR 
OO2F 
Oos1 
0082 


OosU 
Dogo 


Og 
OO 


Ooada 


oo4n 
OOAE 


OOS 


Oosn 
OOSE 
OSL 
NUOGE 
QOGS 


OO67 


DBEF 
ESOL 
2002 
E? 
QE 


DOCBO4HE 
AF 
CLaOOO x 


NOUCBLS44 
BIO OEE 
UDUR4 BES 
E802 

E.7 

14 


EB 
Et 
73 


” 
23 


(is SOT OIar8) xX 
ES 


LDVEL? 
CloOoag x 


OLFROO 
EN4sc9et 


COOOOO X 


DU7E44 

7 

2O00rn 

OES 

El 

115200 

1? 

COO X 


S815 


405 
40 


CDoOoooO Xx 


OF EN 


ve 


OPEN1 


7 


OPF 1 


. 
2 


ue 


ve 


OPF4 


VH SOF Y 
QE CONE M SMT SOURCE STATEMENT 


Ay (FORTEC) 
PROTECT 
NZ. PENS 
SH_ERR 
OEH 


7. CIX+CHTYFE) 
A . 
URVSEL 


PAGE ? 
ASM 3.9 


SYES..CHECK WRITE FROTECT 


SNOT A TEMPORARY BUFFER ANYMORE 


WRELG. CIX+CHFLAG) 


NZ. OPREN1 

2a CIX+RECELG) 
Z,UFENL 

SH ERR 

16H 


HL bt. 
HL 

(HL GE 
HL. 
CHL)» 


CREATE 
HL 


A, CIX+CHURTYV) 
DRVSEL : 


RONXT 


C,OPK2 
Z,0PF3 


WRFLG, CIX+CHELAG) 


A, (LX+RECNUM) 
a 

NZ, ORE 4 

IX 

HL 

DE, CHEATA 
HL > Lie 

ECD 

Z,0PFS 


READING 


'05 IT AN SLYVM FILE 


SYES....WRONG FILE TYPE 


PAND CONNECT NEW CHANNEL NUMBER 


SINTO STREAMS 


SIREATE A CHANNEL ANID INLTIALIZE 
SSAVE CHANNEL NUMBER FUR RETURN 


SSTART MOTOR 

SPOR ALL SECTORS ON THE DRIVE MAP 
STHE FREE SECTOR'S AND LOUK FOR HE 
STHE SPECIFIED FILE 

SREAL THE NEXT DATA BLOCK 


tNEX! SECTOR IF NO GOULD 
iMARE MAP IF EMPTY 


3FILE FOUND. ..REAU FILE 


SCHECKE NUMBER 
§ ZERUETH RECORD? 


;YES..CHECK DATA AND RETURN 


3NO... THEN FIN IT 


. VHSOFT PAGE 8 
LOC OB COLE M STMT SOURCE STATEMENT ASM 5.9 
O08 1810 407 JR OPES 
- 408 OFF 
o0@e  cneooo "xX 409 CALL MARE, iMARK MAP FREE IF EMPTY RECORD 
440 OPES 
OUR ene00g xX 411 CALL DECSEC tNEX1 SECTOR 
O72 Borg 412 JR NZ,OPFL 
4i3 4 
0074  LUCHK43eE 414 RES 1,(IX+RECFLG)  s$CLEAR EOF FLAG FOR WRITE FILE 
0078 DOCR4396 415 RES 2, (1X+RECFLG) = =NOT SLVM FILE AS DEFAULT 
414 OPFS 
OOve EL 417 POP HL. 
ou7b te 41g RET 
419 3 
420 3 
3 RHEE K HEE REHEARSE GE 
3% = FORMAT # 
5 RE HHHH REEE ESE HE ESE TE HE SEE ESE TE HIE TE HE EEE EEE SE REESE 
*THIS PROCELURE IS CALLED IN RESPONSE TO THE COMMANI! 
SFORMAT FILENAME 
i THE FILENAME Is SPECIFIED IN SYSTEM VARIABLES 
3THE PROCEDURE HAS PHREE PHASES: — 
; 1) WRITE THE TAFE, 
; 2) READ THE TAPE NAPING ERRONEOUS DATA 
: 3) RE-WRITE THE GOUL BLOCKS TO ENABLE THEIR USE 
? 
FORMAT 
OOv7E  choo0g — x CALL CREATE SCREATE ALL THE NECESSARY DATA 
LO7EL? Lu A, CIX#CHDRIV) = $SELECT THE DRIVE 
erOoOO — xX CALL DRVO 
Lo BC, 12000 ?WAlT FUR MOTOR TO START UP 
x CALL DELEC 
ur 
IN Ay (PORTE) 
bb AND PROTECT $18 THE DRIVE WRITE PROTECTEN? 
2C AR NZ,WR11 
0084  E? ST SH_ERR 
OOPS OE DEFB OEH SORIVE WRIVE PROTECTED 
448 WR11 
00%  3EES 449 Lu A, ERASE. AND. CTS. AND. SELD SERASE ON 
OOPS  DSEF 450 CUT (PORTO) 2A 
451 3 
OOvA  OLFFOO 452 Lo BC, HD_MAX 3FOR EVERY HEADER STARTING FRUM MAX 
ooen  EnAscesc 452 Lo (SECTOR). BC 
#54 4 
OOAL = QUES 455 PUSH Ix 
OOAE EL 4546 POP HL 'COPY NAME INTO HEALER 
OOAd = 112000 457 Lo DE, HINAME 
OOA7 19 458 ALIL HL» LIE 
459 4 , 
OOAs EB 460 EX HL. » Lik: 
OOAY = IESE 41 Lo HL.» CHNAME-HONANE 
OOAL 19 462 ADD HL, DE 
DOAD = g1aA00 463 Lu BC, 10 
OOKO — ELBO 464 LUIR 


ahh ens rca ete 


Pree 


OOS 
OOS 


Ook: 


oore 
ootd 
oocs 
ooce 


OO? 
oot 


OO 
QOmE 
OOnT 
CHOL! 4, 
Qarhe 
COL 
OOS 
oor? 
QOL 
OOD 


OOD 


Oour 
OOEZ 


QOOES 


ODA 
OEY 


QOER 
OOKE 
QOFO 
QOF 1 
OOP 4 
OOF S 


OOFS 
QOFB 


OOF 


WER COE 


AF 


Deets 


potH4 at 


115200 
ty 


O400 
SEFC 


Oi 
[44500 
i? 
110F 00 
iv 


men @ia161e) 


boO7il2? 


ULES 
El 
112500 
1y 
EPaIOIO 


LiF 4FF 
19 


COOGOO 


M STMT 


VHS0OFT 


SUURCE STATEMENT 


SATE EEE ETE HEHE ME IE ESE EE SEE HE ETE TEE EEE EEE ESE HE IESE SEE HE EEE EE 


RATER ERE ETE EEE IE ETE EE HE EAE EEE EE HE EEE EE EE HEE HEE 


iMAKE THE FIRST CHARACTER IN THE NAME 
5A NULL 10 PREVENT LISTING eY CAT 
SMARE THE HEALER AS A HEADER 

SNARE THE CRSCRIFTOR CORRESPONDINGLY 
SMARE THE LATA EUF TE FULL 


SPILL THE DATA WITH THE BYTE MOST 
SPRUONE TO ERRUR IN URDER THAT RAL 


SBLOCKS ARE MOST LIKELY TO BE DETECTED 


ee, Lt fo 


DD ols oe 
thin ES 2 Legrand “4 
a 


MPG 


SERKOR ENCOUE THE ULSCRIFTOR 


4. Cu. der bed 


an Bh ac 


:AND THE DATA 


cd 


SNEXT SECTOR 


SUPDATE HEALIER NUMBER 


sANIt ENCOUE 


tWRITE THE HEADER BLOCK 


3 
XOR A 
Lo CLX+RECNAM) A 
SET 0, CLX+HUFLAG) 
RES O, CLX+RECELG) 
SET 1, (1X+RECFLG) 
PUSH Ix 
PUP HL. 
Lo DE, CHDATA 
Ano HL» Die 
LD HO 
Lo A, 0FCH 
FORMLO 
Lu (HLA 
INC HL. 
LINZ FRIRMLO 
FORM14 
Lu (HLA 
INC HL. 
DINZ FORMA 
3 
PUSH 1X 
PoP RE 
Lu HL CHDES+PLEN 
Ati HL.» UE 
CALL ECH 
Lo LE CHUATA~CHLIES~PLEN 
aca HL» DIE 
CALL ED 
$# WRITE TO ALL UF TAFE 
FORML 
CALL VECSEC 
JR Z. FORM 
3 ; 
Lu (IX+HONUIME) Co 
PUSH IX 
FUP HL. 
Lo DE» CHHDR+PLEN 
Ann HL; DIE 
CALL ELH 
; 
Lu DE» -PLEN 
apn HL.» LIE 
3 
CALL WRHEL.K 


Lae 


OOF F 
O102 


O105 
O10y 
OLos 
O10H 


o1o0c 


O1LOF 
O11 
O115 
OLLS 


O114 
OLit 


OLLE 
O1l21 


O14 


OLs7 


OLZ8 


OL2E 
O1st 


O33 
O13's 
OLI6 
O1a? 


ae BTA) 
Oban 
Otago 
L423 
aids 


O14as 
O14? 


OL4H 


OHI COME M STMT SCURCE STATEMENT 


OLB204 
CHoOoog ‘ 


DOES 
Et 
L700 
19 


CHoo0d0 


OVSROS 
CLO 
a BIAL GIB 18) 


OU7ELY 


OLFFOO 


EN4sC 9S 


CLoOOao 


114300 
1? 


Cee) 
eMoaag 


200g 


“110F 00 
49 


Loa 
2008 


Cnooeo 
cnoo000 
2008 

CHU4E0S 


S23 


Pry 


VHSOFT 


FORM4 


. 
7 


Bt, GAPTL 
DELAC 


y 
A 


HL. 
DE, CHDES 
HL.» LE 


WRBLE 


Bm, GAFPT2 
DE LOB 
BRE AK? 
FORML 


AIS. AND. SELL 
CROFT) A 


FAGE 10 
AsM 3.9 


SWALT FOR THE THE REMAINUER OF 


}WRITE THE DATA BLOCK 


;WALT FOR THE REMAINDER OF 
SNEXT SECTUR 


SERASE OFF 


BFE HIE HH TE HH SE HSER AE Me MEH TE RAE HE SELAH HE AE EE EE SE TCHR TE HEE SE HE HE EE de 
s# NOW READ BACK ALL BLOCKS AND MARK MAF + 
FORTE HEE ESTER HERE SEH TETHER SEEM TEE ESE TE IEE TEE ETRE REE HSE AE EE HEHE GE 


2 
? 


ue 


FORMS 


ry 
? 


wa 


FURMG 


i] 
FORM? 


ey 


LO 
CALL 


Lu 
LO 


CALL 


CALL 
IR 


PLUSH 
FOP 
LO 
Apo 


CALL 
CALL 
JR 


Lu 
App 
CALL 
JR 
CALL 
CALL 
dR 


CALL 


A, CIX+CHURTIY) 
DRVSEL 


Bl. HULMAX 
CSEC TOR)» Bt 


WLHLUR 


FREE? 
Z+FURMG 


Ix 

HL. 

DE, CHUES+PLEN 
HL» Die 


POEL: 
ECH 
Nés FORMA 


SRESELECT THE DRIVE TO MAKE SURE 
'THERE WAS SUIMETHING IN IT 


3FOR ALL HEADERS CHECK WHICH LATA BLOCKS 
iCAN BE READ FIRST TIME AND MARE THEM FREE 
7REAU HEALIERK 


315 IT ALREADY MARKED FREEIGNOKE 1HE DATA 
3AND WAIT FUR THE NEXT SECTOR 


+REAL DATA 


Mie tt eke 
ump | net O}K 


Dies CHUATA=GCHUES=PLEN 


Hi» DE 
Een 

NZ, KORMG 
MARK 
DECSEC 
NZ, FORMS 


BUTLD 


SMARK SECTOR FREE 
#LAST BLOCK? 


VEUILD AN EMPTY BRESCRIPTOR 


, VHSOFT PAGE 11 
Loc OR! COVE M STMT SQURCE STATEMENT ASM 3.9 
OLS4 CNOoog X CALL SARE THERE ANY FREE BLOCKS TO BE 
oO1s9 2003 IR SMARKED 
OLoe Ar XOR ra) 
OL COO xX CALL URVSEL SURAVE OFF 
3 
OL Sf cnoevwe0 x CALL DELIX SDELETE CHANNEL INFO 
i 
1462 Cc? Ref 
, 
FORMS 
O62 CHOOde 4 TALL WHRFREE SWRITE THe DATA BLOCK INTO A 
O1E4 LSkE JR FORM? SSECTOR MARKED FREE 


HEHE TEE TEE HEE EE EE HEE EE SE HEE HEE EE ESE ESE SE HE SE SE ETE EEE EH EH 
% CAT ca 
HH TEE EE HEE HE SESE EE EE EE HEE SEE EE TE EE TES EE EEE HE EEE HEE 


Ma ve ve se ue ve ve we se we we 


THIS CUMMANL Hes TWU FORMS CAT HN, STRING AND CAT STRING 
CAT IMPOSES @ LIMIT OF SO FILES FER URIVE BECAUSE UNLY 
51.2 FILENAMES CAN BE STORED IN A BUFFER 
THE NUMBER CF ENTR IN THE LIST 1S SURED IN CHREC WHICH 
IS INITIALIZE BY CREATE 
£04 
605  CATN 
OLE SADESC LOE Lu A, COR+S 8TRI) sFINL THE STREAM NUMBER 
OLS &07 CLOCAL SELECT SYES..SELECT THIS STREAM 
608 4 
O16E  ecnaceea X 60% CALL CREATE SHERE WITH THE DRIVE NAME 
610 $3 
O71 DNVEL? 411 Lu A, CIX+CHURTIV) SSTART MOTOR 
O17 4. CLuagag X G12 CALL DRVSEL 
413 3 
O177  OLFFOO &14 LD Bl HO_MAX 
OL7A  BLasmese 445i Lu (SECTOR) » BC fFOR ALL HEADERS REAL THE DESCRIPTORS 
1S SCHECK FOR NAME IN DIRECTURY ANI ENTER 
G17 SIF NECESSARY 
S18 CATFL 
O’7E = cnooaoe X Gl? WALL WTHLIFG SWAIT FOR HEADER 
20 3 
OUSL Ch6s0% RR GPL CALL REE S SREALL DESCRIPTUR 
O1E4 ores 22 JR NZ. CAIF1 STUNORE IF Nu GOD 
Bo 
OLe UO7k4S 4 LO A, CLX+RECELG) 31S IT FREE IB NOT FULL OR EOF 
O41 5 oR CIX+RECLEN+ 1) 
o1sn 4 AND 2 : 
OLE 7 JR NZ,CATF2 
ned 3 
O17o LODO X 429 CALL MARIC 3YES...MARE MAP..NEX? HEAUER 
O1ss L849 aC JR CATES 
OLFS  LI7E47 LD Ay CIX+RECNAM) 
O19s HT UR A sLOUK AT THE FIRST CHARACTER IN NAME 
oO19y BEES JR Z,CATFS SIGNORE IF WULL 
O19 ODES PUSH 1X sAauD TO LIST 
orn EL Pap HL. - 


j Ht Pk cine at brag 


: VH SCF T PAGE 12 


Loc = OB CODE M STMT SCURCE STATEMENT ASM 5.9 
OLVE = 115200 OR? Lu DE» CHIIATEA 
OLAL 1? — 60 AnD HL» DE 
OLae 11Ea00 * 641 : Lo DE, 10 
CLAS OOO 642 Li BO 
OLA? LuU4EOn G43 Lu tC, CLX+CHREC) 
644 43 
445 CAIFS 
OLAR  7F 646 Lo ALC SEND OF LIST? 
O1ABR  B7 &47 OR A 
OLAC BRB CAG uk Z,CATF4 $YES...PUT THE NAME ON THE ENL 
bay 3 
OLE ES 650 "PUSH HL SCOUMPARE WITH THE CURRENT NAME 
O1AF  DDES GEL PUSH 1X 
O1b1 C5 452 FUSH BU: 
OLBZ  O404 ake Lo B10 
484 CAIFL2 
OL84 = 7E area Lo A: (HL) 
OLS DLEE47 GEFs cP (IX+RECNAM) 
O18s = BOOS 7 JR NZ, CATF13 


OLA : SS IN HL. 
CL EE One3 ED INC IX 
OLB 1OFS 440 LINZ CATELZ 
464 CAIFLIS 
OL HF 662 Por BI 
1c &&2 Por Ix 
OL &64 For HL. 
Q4c3 645 AR ZaMATFS NEXT SECTOR IF THE SAME 
O1es bbts WK NC CATF14 
47 4 
OLl7 1% 663 Ang HL» DE SGREATER..»NEXT ENTRY 
O1Ce ot bb Det C 
OLT9 13uF &70 JR CATES 
&7L 4 
&72 CATF14 
OUCH ES B73 PLUSH HI. SLESS... INSERT 
OVor crs &74 Puls DE 
OLOL co OTR PIUSH Bt 
OLCE ES 476 PUSH HL. 
QO1LCF CH21 677 ELA C SHO t= LO#BRO LENGTH UF REMAINING LIST 
OLE 60 4/3 LO H,& 
O1o2 é&9 &79 Lo Lat 
O1tS Ov? &8O AQn HL.» BC 
Ou4 oo GS1 Ang HL.» BIC 
105 oD Gee Ann HL.» Bo 
O1UE OF At33 ALL HL Bit 
OLii7 44 && Lo BH 
OD 4u ate Lo Cab 
Oi El ; bus : For HL. SH. FOINTS TO TUP BYIE IN BLOCK 
104 2H 697 DEC HL UE POINTS TU 10 BYTES BEYOND 
Ota ov SENN ADL HL BC 
OL: eas) &Eo EX HL. DE 
og 1 &cy ADL HL.» DE 
OL EE, EH Gah EX HL» Dk 
OAD EDES &92 LOOR ; +MOVE UP THE REMAINING DATA 
OLEL Cl EOS POP RC 
O1E2 C1 694 Par — be 
O1E3 El 695 FOr HL. 
69% 3 


: VHS0FT PAGE 13 
Lom UE CODE M STMT SOURCE STATEMENT ASM 5.9 
697 CATF4 
O1E4 LES 698 PLUSH IX sENTER THE NAME IN THE [ITRECTORY 
O1ES O6on * 699 Lo H,10 
700 CAIFS 
O1ES  DNVE47 7O4 LD ®, (1X+RECNAM) 
OLEM = 77 702 Lu (HLA 
O1EC pn23 703 INC 1x 
OLEE | -Z3 704 INC HL. 
OLEF = 10F7 705  QUINZ CATFS 
O1FL UDELL 706 PoP 1X 
O73 
O1FS  LOTROL yO Lu A, CIX+CHREC) PIS THE DLRECTORY FULL? 
O1KE BC 709 INC 4 
O1F/ LU7voL 710 LD CLIX4+CHREC) A 
OFA FES 714 cP BO 
OLFE = B80 712 JR Z,CATF1S 
13 CATES 
OWE choo xX 714 CALL DECSEL: SNEXT SECTOR 
o201 CE7EOL R 715 JF NZ, CAIFL 
TAG 3 
717 CATF1S 
0204 = DLWES vig PUSH IX 
OZ06 9 AF 719 XOR Ay SLAST SECTOR OKSELECT URIVES 
Oz07 cnoo9g xX 7z0 CALL URVSEL 
721 3 
O20A LDES 722 PLISH 1X 
ozoc EL - PUP Hi. 
azo 1121000 Lu LE, HONAME SPRINT TAPE NAME 
O210 19 ADO HL ME 
oz11 cCheo02 R CALL NMOWIT 
o214 3Eon LO A, OLIH 
0214 Cn7402 R CALL CHOUT 
O219 DDES PLISH IX 
El PUP HL 
118200 Lo DIE» CHUATA 
19 ADD HL» DIE 
Ll4.on Lo By (IX+CHREC) 
7a Lo ALB 
B7 OR A 
2805 JR Z.CAIFS 
CATF7 
0227 CLE00z2  R CALL NMCHIT tFRINT FILENAME AND CK 
o228 10F8 DhINZ CATE 7 
3 
CATFS ; 
LoasOZ OR CALL MANY’! sHOW MANY FREE SECTORS? 
Lo ALE sDISPLAY CAPACITY 
SRL A SHLOCKS -> K*S 
RST CALBAS SSrACK A 
DEKW sTk-A 
LO fy, OD 
R CALL CHEWIT 
7 RST CALBAS SCUITPUT FP 
E320 DEFW ovT PUT s 
ZEON LD A, OL 


CU7602 R CALL CHOY 


us 


o24s 
O24aE 
OLE 


Ono 


O23 
o254 


0270 
On 73 
O27 4- 
OL75 


ODT bs 
Ooe7e 

on 7B 
o> 70 


OR! CODE M STMT 


QUE 1 
CHooog 


ty 


LOAELA 
(N6648 
LEOO 


tA 


[ea] 
OGOA 
/E 
CL7602 


RE? GOS 
ES 
Ed 
1 


my 


ODES 


DGE 1 
Cc? 


R 


735 
734 
737 
738 
7S? 
760 
/61 
762 
763 
764 
745 
T&L 
7&7 
768 
769 
770 
771 
772 
773 
774 
773 
77% 
777 
773 
V7? 
780 
7E1 
/B2 tee 
733 
734 
735 
7236 
737 
728 
789 
720 
7P1 
792 
7?3 
7P4 
795 
726 
727 
TPS 
TP? 
S00 
801 
so2 2 
B03 
Bog 
B05 
S04 
807 
803 
809 
810 
B11 
B12 


VHSOF T PAGE 14 


SOURCE STAIEMENT ASM 5.9 
POF Ix 
CALL DELIX SDELESE THE CHANNEL 
3 : ; 
RE SAND RETURN 


. 
? 


SMANY? COUNTS THE NUMBER OF FREE SECTORS IN THE CURRENT CHANNEL 
SAND RETURNS THE NUMBER IN E 


? 
MANY? 
Lo L C1X+CHMAP) 
Lo H> CIX+CHMAP +1) 
Lo EO sWORE ULIT THE FREE SFACE 
LoD i) MAPLN 
CATF9 
LO A, (HL) 
INC HL. 
LO BLS 
CATF10 
RRA ;COUNT THE FREE BITS 
JR C,CATFLL 
INC EB 
CATFIL 
DINZ CATF1O 
DEC Cc SNEXT BYTE 
Jk Nz, CATF? 
RET 


sNMOUY DISPLAYS THE 10 BYTES AT HL FOLLOWEL) BY A CR 
SHL IS LEFT [NCRENENTED 


NMOUT 
PUSH BC: 
LD B10 
NM1 
Lo A, (HL) 
CALL CHOUT 
INC HL 
ThINZ Nt‘ 
Lo A, OLIH 
CALL Sout 
PUSH 
OLUCAL SQL4DH > RAYS sRESET TEMPORARY COLOURS 
POP 
Por He 
RET 
CHUUT 
PUSH Ix 
GLOCAL 14 
POP IX 
RET 
SMR EH EERE HERE HRHEERE ERE EH 
3H ERASE # 
FE EE EH SE ESE EE HE SE SE EEE EEE IEE HE EEE EEE HEE HEE HE 


Ete Met oe phe lag 


. VHSOF 1 PAGE 15 
Luc «60. CODE M STMT SOURCE STAIEMENT ASM 3.9 


3 : 
3THIS 15 CALLED WHEN THE COMMAND ERASE FILENAME IS ENCOUNTEREU 
SERASE WORKS SY PASKING THROLIWH THE fAPE REAQIMNG ALL CESCRIFTORS 
SAND CREATING A MAF OF ALL BLUCKS To Be DELETED 


5 
ERA : 
278 EROS x CALL CREATE {MAKE CHANNEL INFO 
1 : 
O281 DOU7E19 * LD Ay CIX+CHDRIY) 
O284 CHoOoag x CALL HRVSEL 
i ? DUBEF IN A, (PORT) 
Osa? eit ANI! FROTECT 315 THE DRIVE WRITE PRUTECTEL? 
O2B JR NZ,WRIz 
O28 E7 RST SH ERR 
OSSE° OE Dkre OH SORIVE WRITE PROTECTED 
WR1IZ : 
DUES FLUSH IX SINITIALISE LIS) 10 ALL ZERDES 
Et Fur HL 
115200 Lu DE, CHDATA 
1? Ang HL, DE 
ES Fus HL 
tu FOr DE 
13 . INC LE 
OLLFOO Lo HC, MAPLN~1 
AF XOR ra) 
77 Lo CHLDGA 
ERO LOIR 
SHE EH HE EE FE SE SE EE EE ESE HE SEE FE FE SE SE ETE EE EE HE IE HE HE IEE SEE EEE EEE EEE EEE EE HE 
$%# MAKE A MAF OF THE TAFE IN THE LsliaL WAY ANT MAKE * 
5% ANOTHER MAF CLUST) IN THE DATA BURFER INDICATING # 
3% THE PUSITIONS OF RECORDS TO BE ERASED * 
S REE IE ETE HE TE SEE FE HE IE HE HE IE HE IE HE SE SE IE ETE HE ETE JE IE FEE EE SE HE SEE SE HE EE SE JE SE ESE HE SESE HEHE SE dE SE HE 
5 
Ong SE FF LO f\, OF FH 
O22 U7 7 OU LU CIX+CHREC) 2A 
O2Ag O1F BO4 Lo BCs PRYS#HO_MAX 
ORAS EUG SCP St LO CskC1OR). Bt 
o2ac | ooeQo00o x CALL. DESEIS SHAVE WE WAITED LONG ENOUGH FOR EOF 
O2AF 2857 JR Z,tRAS_L4 SYES..-ERASE WHAT WE HAVE FOUND 
O2HL cHooodg xX CALL WTHOIR : SWAIT FOR A HRALIER 
OLH4 CLS 3803 R CALL RUGS SREALD VESCRIPTOR 
OfH7 OBL JK NZ,ERAS 'DATA BAL... IGNOKE 
OZH? DU/k43 LO Ay CIX+RECFLG) 315 IT FREE IE NO?’ FULL OR Ett 
Ose COBG4AG OR CIX+RECLEN#1 ) 
O2ZRF E602 AND = 
O21 2005 JR 'NZ,ERAZ 
O20 CNoeooo x CALL MARE, SYES...MARK MAP 


O22 


O20 


OZLI7 


O2LA 
O2DH 


On2uL 
O2ZE1 
O2ES 
O26 
Qk 7 


O2FO 
OZF 1 
O2F3 


O2FS 
O2F4 
Ov 7 


oer? 


Gh A 


OEP C 
ak Oo 
tank b 
O20 
O20 
305 
306 


C303 


O30H 


OBJ CODE M STMT 


{HeD 


URES 
El 
114700 
19 
OLOAODD 


CMooog 


2012 


LOO 


“78 


RS 
77 


LUCK 434E 
2507 
DEVE 44 
aC 


Wu 70 


1a) ala 
aa 


Lory 
(a) a) 
20FS 
DP7EOR 
RE 
20A4 


CD4EO3 


LNeQda 


X 


Xx 


a 
a 


“a 


Fy fy od 


ETO oc eo 
2g Oo a 
mi 2S oho 


YO 
BO? 
eens 
eo? 
P10 
eid 
912 
913 
914 
915 


VHSOFT 


ERAZ 


ve 


ue 


ue 


se 


ERAS 


ERA3.1 


ERA3.2 


ERA2.3 


2 eget ok 


dR 


SUURCE STATEMENT 


ERAS 


IX 

HL 

LIE, RECNAM 
HL, GE 

BL, 10 


CPSTR 
NZ, ERAS 


List? 


A, 
CHL) 
CHL A 


1, (IX+RECFLG) 
Z, ERAS 

A, (IX+RECNUM) 
A 
C1LX+CHREC) 7A 


Xx 

HL. 

DE CHNATA 
HL, DE 

E,0 
C.MAPLN 


Ne, ERAG.3 
E 


ERAS 2 
( 
NZ, ERARO4 

A, (IX+CHREC) 
E 

NZ,ERAL 


BUILD 


WIHOR 


LIST? 
2;ERAG 
Hi 

BE 


PAGE 16 
ASM Si? 


Mt... IS IT THE RIGHT FILE’ 


'YES.. ADL SECTOR TO LIST? 


$15 IT THE LAST RECORL 


SYES...S3AVE RECORL COUN) 


FHAVE WE FOUNT! THE LO1? 


YOOWNT THEM 


IBUILU AN EMPTY DESCRIPTOR 


HWAIT FUR THE HEAVEN 
jHARKER FUR ERASURE? 


A, ERASE. AND. CTS. ANT. SELA 


Las Se 


re VHSUr T PAGE 17 


Loe UE COE M STMT SOURCE STAITEMENT ASM 5.9 
O317 Qk F OUT (FORIC).A SERASE EARLY BLOCKS 
oOuLly O1480T Lo BL, GAFTS 3WAIT FOR THE REMAINDER OF GAP 1 
Osi CLaOag xX CALL DEL BC 
Sir ODES PUSH Ix 
Os21 El POF HL 
OS22 113700 LO ME, CHOES 
O225 19 Aun HL» DE 
ORS Poaood x CALL WHBLE SWRITE AN EMF TY BLOCK 

SEER Lu A,CTS. ANU. SELL STURN OFF THE ERASE 
DEF QUT C(FPORTC)2A 
320 LOOOOO xX CALL MARE SMARE THE CHANGE ON THE MAP 
OL FoP Be SAND GN THE LIST 
Et Pup HL 
73 Lo 4.8 
oF Cre 
AS AND (HL) 
77 LO (HL)2A 
DUES PLISH Ix SANY LEFT? 
EL FOP HL 
LiS200 LD LIE CHOATA 
1Y Ang Hl GE 
O620 3 Lu BB: MARLN 
2 ERAT 
7k P40 Lo A. CHL) 
B/ VEL OR A 
SOUS P62 IR NZ, ERA4 sYES...CUNTINUE 
ao PES INC HL 
10F2 P44 DINZ ERA7 
QRS 5 
OB4& AF 94 XOR A SNO...DESELECT URIVE 
O2347 Cuooad X F747 CALL ORVSEL 
968 3 
O344 CHONOO X P49 CALL DELIX SURLETE CHANNEL 
970 4 f 
o3s4u Ly P71 RE sANU RETURN 
972 3 
973 SBUILD MAKES THE DESCRIPTOR IN THE CURREN) BUFFER REFER 
774 3$TQ AN EMPTY RECURD : e 
9735 4 
yv7& BUILD 
AF 77 XOR A 
uoi7743 978 LO CIX+RECFLG).A 
ON7745 7? LU (CIX+RECLEN):A 
L077 46 930 Lo CIX+RECLEN+1),A 
°S1l ¢ . 
OSS OveEsS PR2 PLUSH Ix 
OBS El P23 POP HL 
O358 114300 9S4 Lo DE, CHDES+PLEN 
O3Sk 1? 78S apo HL.» Dk. 
yes § : 


Loc 


e O25F 


Os842 


VHSOFT 


Oa CODE M STMT SQURCE STATEMENT 


CHOOOO 
co 


. 


DDES 
El 
1143600 
1? 


CAOoOOG 
MLIOOOD 
co 

DOIMR4 346 
Cy 


X 987 
gee 
Pay 
290 
DO 
993 
974 
9? 
97% 
997 
993 

X 999 

xX 1000 
1001 
1002 
1003 
1004 
1005 


e 


UNE 
L 


TALL 
RET 


F' 


fot Aim, 0 Seater 
a) 


EICH 


DE» CHDES+PLEN 
HL» Ue 


ROH BLE 

ECH 

NZ 

O, CIX+RECFLG) 


515 17 REALLY A DESCRIFTOR 


aC) 
SHOURIVE 


PAGE 1 
LOC OBJ CODE M STMT SOURCE SrareEMENr ASM 5.9 
1 3 
s 2 FEHR HHH EE EEE SEH HEE HE HE SE TE TE EE TEE HEE EE HE EEE EEE HE EE EE HE SE ETE FE TE HE SE SE SE Se SE HE SEE EE EE 
a3 ATUGROURIVE MOUUILE 
5 3 LOEB 
6 3 
TS ERS HESE TERE HEHE SE HEHE EAE SE HEIR HEHE HEHEHE EEE TEE RHEE HIE HE HEE ACE SEEGER SEAS HE IESE SEE HIE EE ER EE HE EE HE EEE 
@ 3 , 
9 
10) #INCLUUE SHUOSLV.S 
fi 3 
YEP RHEE IEE TEE AEE EE EEE IEE SEE SEE SE TE HERE SE EE HACE EEE SEE EE EEE ECHO EEE HEHE 
BS 
: SHALGW ROM SYSTEM VARIABLES 
SF HEHEHE HE EEE HE TE HE SE HE BE HE HE HE EE SE dE SE SE HSE SE ESE SE SE EE dE dE EE HEE ETE SEE EE dE TE SE SE SE IE SE SEE SE dE HE dE dd SH 
#INGL = NEWVAR. S 
FBR RE HHA RIE HHH HHH HIRE HEHEHE HEE 
3% NEWVAR # 
# PR/A/ES # 
SRR HEHHHHHRHEHRRHEHHRHRHEREHRKR HEHEHE 
5 RS ee LAE ENE EE HE RAENDER ERM eR RE RR 
3# SYSTEM EWVUOTES # 
PMR REE HR HHHHEERHEHEHHRHEHHHEHHE RHEE 
3 
PORTO Br OLEH SWORIVE CONTROL/STATUS FORT 
PORTO ERI O/H SUATA FORT ADDRESS 
SELU Ett OF EH SURIVE SELECT DATA 
SELC EU OF DIM TURIVE SELECT CLOCK 
WRITE Btu OF BH PWRITE CURRENT CN 
ERASE  EQU OF 7H SERASE CURRENT UN 
CTS En OKFH SCLEARK 10 SEND QOUTPUT 
3 € 
: ay SYNE Et 2 TSYNC BYTE DETECTED SIGNAL 
40 PROVECT Eau 1 TWRITE PROTECT SIGNAL 
41 GAP Er 4 3GAF SIGNAL 
42 BUSY EGU LOH 
43 3 
44 FLEN Eau 12 SLENGTH OF PREAMBLE 
45 HULLEN  ECIL PLEN+1441 SLENGTH UF HEALER BLOCK PLUS PREAMBLE 
46 DLULEN Eau HU_LEN+512+1 TLENGIH OF DATA BLOCK 
47 HOLMAX Eau PSS TNUMBER UF BLA UN TAPE 
42 TRYS Eau 5 SNUMBER OF TRIPS ROUNL TAPE 
49 PHEFORE GIVING UP 
=O GAPTS EQU B40 STHE DEC BC DELAY BETWEEN REALING 
51 TA HEALER, CURRECTING If, TESTING 
52 SIF FREE AND WRITING A DATA BLOCK 
S3 GAPT1. Eu * GAPT3+74 ISTHE DEC RO UELAY BETWEEN WRITING 
54 1A HEAUER BLOCK AND WRITING A 
55 SDATA BLOCK 
54 GAPT2Z EAU w3t $THE DEC BC DELAY BETWEEN END OF 
57 $A DATA BLO AND BEGINNING CF 


58 THEADER BLOCK 


+ 


Ps 


LOC 


OW! Cue M STMT 


SH_ORIVE : PAGE 2 


SOURCE STATEMENT ASM 3. 


STHE O80 BO DELAY IS 26 T-STATES 
SOK 7. Als 
{THE ABOVE TIMINGS ARE HOPEFULLY 
SPOR A HEADER OF LENGTH S40US, FOLLOWEL BY A GAP OF 3,.046M3 
SBY THE LATA BLOCK LENGTH 21. 3M5,F0LLOWEO BY A GOP OF 4m, 


FOLLOWEU 


ENROK BGM 
INSERT EUL! 
DELREC EGU 
CHANS EQU 
SiKENU EG 
STEBOT EtH 
MEM Eu 
SELECT Et 
SENOTVY EGU 


SERROR HANULING IN Rut 
SMAEE SPACE IN RUM 


QF CHANNEL CATA 
OF START CF SPARE SPACE 


SCHANNEL SELECT Suk. IN GLU ROM 
SPY QWTPUT PROCEDURE 


OUTCH EG 14 CHANNEL OLA RLA ROUT ONE 
INCH EQU LEGH SCHANNEL INUIT ROUTINE 

3 

; SHALWW ROM SYSTEM VARTABLES 

STEARATE HEH SE EH AE TE HE AEE RH ETE SEH TE EGGERS HEGEGRESE GHEE GE HEE EE TEA TE IE HEE EAE IEE HE at 


LE OOOOH 


EGu 
OOLOH 
EGIL 
EGU 
EWI © 
Eau © 
Ew 
+ HASE ROM 
LASTOEK . EG Sima 
DeFADD Ett 
STRMS En 
Y Euwu 
ERRINR EGU 
FLAGS Euu 
TV_FLAG SIH. 


ERRISP EWU 
NEWPRCO EQU 5 
NSFPC EWU Ac 
ia EQu 
SUBEPO EWU 
BORDCR ECU 
VARS EQ 

CHANS. EQU S 
CURCHL EGU 
PROG Eau 
HATADD ECU 
E.LINE Eau 


aie anagea donc italy 


? SH OURTVE PAG 


AGE = 23 
Luc QB COUE M STMT SOURCE STATEMENT ASM 5.9 
117°) CHAU 
118 X_PTR 
_ 119 FLAGS? 
120° FLAGX 
Led LIL 
SCREOT , 
ATTRUP Emu & coun 
ATIRAT EW SCSEH 
PFLAG EWU Sicv1H 
OR EGU SCB4H 
1a0 
131 DFE HET EE EE AE EE a dt ae FRE ETE EEE TOG RR a Ea aE Here 
Cr FIXED MICRODRIVE DATA tt 
Lag STE HEHE RE He EEE TE He aE di ae HR AEE TEE HE FAT ET Hae ‘ 
124003 


ASS os 
1360 STHIS FIXEW DATA IS FOUN IMMEDIATELY AFTER THE SYSTEM VARIABLES 
127 $THE SPACE IS CREATED WHEN THE SHADOW ROM (8 FIRST CALLEO 

138 3 


13%) 6FLAGS3S EAU Lik $237 34 tHIT Oo W.. RECURSION 
140 TEIT 224.6. AUTO RUN 

141 tHIT 2 wee HOO 

143 VEIT 4 wan 

144 ELT S aa 

145 WHAT & wwe 

147 xr EMU ? ‘ SINDICATES VERIFY NOT Loan 

143 YVecToR bout oH PAE / ANEW COMMAND VECTOR PUINT 
147  SBRT EAU VECTORGCOSH p2a7a7 ISTART OF CALBAS SUBROUTINE 
1590 Hoo EAU SRR T+O1H : 

W100 ZILCH Eau RT+04H 

152 Baun EQU SBRT+OAH $23747 SRATE FOR Rove 

133 NTSTAT EQU BAUL+OLH 323749 ;OWN STATIUN NUMBER 

154 TORURD EGU NTSTAT+O1H 23750 PBORDER COLOUR FOR 2/0 

135 SERUFL EGU TOBURD+O1H garg 7B Hips ae INFUY FLAG & CHARACTER 
154 SEND OF DEFAULT SYS. VARS 

137 

1g 

159 P=TART OF VARTABLES 

$40 SECTOR OU SER-FL+OSHHOR } = IMICROOR IVE SECTOR 

dal CHAM. Blu . H~ LR 729765 S TEMP OR TORE FOR CH-AHE 


162 NTRESP EL CHADL. OSH FLRTEZ iSTOKE FOR HESPRINEE LORE 
143 

144 STHE ot nenaeNe FOR f NET HEANER 
165° NIMEST Eu NT RESP +OLH 3 ES 

144 MNTSRCE EQW NTE 5 


Ee STATIN NUMBER 


167) NTNUMB Et RUE: vs I NUMBER : 

lot NTTYPE Buu NTNUME +024 VER7OR PDATAS (O) ORK “CLOSES (1) TYPE COVE 
169 NILEN EGU NITYPE+OLH P3763 HOATA BLOCK LENGTH 

170) NTDCS EGU NTLEN+O1H $2764 SDATA CHECK 

171) NTHOS EQU NTRCS+O01H 323765 THEADER CHECKSUM 

172 


173 *THE SIXTEEN LOCATIONS FOR PARAMETER COLLECTION 
174 DOSfRL EGU NTHOS+01H 323746 ITWO BYTE NUMBER 


spe 


vow, SH_DRIVE PA 
Loc BI CODE M STMT SOURCE STATEMENT A 


175 SLSTRI EGU DOSTRI+03H 
174 LSTRL EGU DUSTR1+0%3H 
177) NOSTRI EAU DUSTRL+04H 
17S DLUSYRA EGU QUSPRitocH 
1797 S.LSTRS EOQU UOSTRI+0AH 
180) LOSTRA EWU Dos rR1+08H 
181 NUSTR2 EW DOSTRI+0CH 


STREAM NUMBER 

LETTER 

NAME DETAILS (LENGTH & START) 
## SECOND SET 4 


124 Stoo EMU DOSTRL+O8H 
185 Stork EQU DUSTRitovH 
1364 « Sr_lon Ew o Ri+OBH 


SSECOND SET FUR SCANN 


187 SC_OF Eu OuSTRiL+O0H 
183 
1a9 
1?0 7THE NINE LOWVATIONS FOR “SAVE", “LOAD’ ETu. 
1971) HOLOO EWU DOSIRItLOH 3: S1YFE CODE 
1v2 HOLOB EMU HULOOFOLH H SLENGTH OF BLOCK 
1973 Huot EGU HULORFOLH 5 
174 Hitop EAU HOt +OLH 3 SSTART OF BLOCK 
175 HOLOr EGU HOLOD+O1LH 3 
1764 HODLOF EAU HULOE+OLH 3 SPRUGRAM LENGTH 
v7) Hi_10 EQU HiIOF+OLH 5 
17S HOL11 EGU HOWOLO+OLH 3 SLINE NUMBER 
1p? HOWAS EW Hft11i+01H FAI77O 
4 COPIES Euu HIIi2+1 S227F1 
ROMADLU EQUI HUL1LO+01H +2378Y SPFASSING ADDRESS FOR HOOKS 
DRULEN EQ COPTES+01H 
NWWLEN EQUI O114H SLENGIH UF A NET BUFFER 
: RS232 PORT DETAILS. 
RS232 Eu OF 7H SSERIAL DATA PORT 
EERUPT Ew OF EH “SKEYEOARD. FURT 
STATUS Ell OEFH SSSERIAL STATUS PORT 
OTR Ell OSH SMASE FOR DIR OUTPUT 
+ NET PORT DETAILS 
SERIAL Ell OF /H SSERIAL vATA FPURT 
WAIT EQU O:LFH SWAIT FORT 
3 
5 MEHR TE HE HEH He HE HE SE TE HE SE EE TE HE dE HEE FE FEE EE HE SE HE SE SE dE EE EEE SE dE EE 
3H MACROS # 
SHEESH EEE HE TE HE HE HE IE SE SE HE SE FE dE SE SESE ESE SESE SE SE EEE HE RHEE EE HEE HEHE 
R31 MACRO F#A0DR STHIS MACRO WILL BE USED To FLAG 
RST #A0DR SCALLS fO THE RUM WHEN FHIS S/WARE 
ENUM $15 CONVERIEL Tu SHAUOW ROM FORM. 


ASSERT MACRO HON 
COND «NOT. CHCUND) 


. 


et se 


fe Nt, 
Be 


. . 


LAS 


uBI CODE M STMT 


SHUDRIVE 
SOURCE STATEMENT 


HEHEHE EAAOR IN ASSERTION #COND 


END 
ENDIM | 

QLOCAL MACRO 
RST 
LEFW 
ENDM 

b] 

OL DUP MACRO 
lh? 
ENDM 

3 

+ 

J 


#SUR 
CALBAS 
#5LIB 


#3) 
#OEST 


FH TE TE TERE AEE SEE ETE TEE HEE SEE EE EERE ETE EE EAE TE ETE TEE EEE EE EEE 


git DATA 


# 


FETE EH HEE HEHE SESE HEE HERE HE SE EE SEE HE HE IE EE SE EEE ETE EE HE EE HE 


ve 


ve we we we ve we we we 


SOLD WROH AUURESS 
SOILD ROCH ADRESS 


CHIYFE EG 


POINTS 
4 


SNEW WROH ADDRESS 
sNEW ROCH ADDRESS 


CHLEN 
CHEYTE 
CHREU 
CHNAME 
CHFLAG 
5 
WRELG 


Eau 
Emu 
Eu 
Eau 
Emu 


E.aU 


' 
CHURTY 
CHMAF 


Eau 
EQU 


A 
CHHUR 
HLIFLAG 
HUNUIME 


HUNAME 
“HEICHE 
3 


Eau 
Emu 
Eau 


Eau 
EWU 


CHTYPE+S 
CHLEN+2 
CHHYTE+2 
CHREC+1- 
CHNAME+10 


0 


CHFLAG+I 
CHOR LY +4 


CHMAPTE 
CHHDR+FLEN 
HEP LAG+I 


HUNUME+S 
HUNAME+10 


POINTS TO 0008 
TO 9008 


FREE HEE EE EHEC HANNE Le ee EE 


HE FOLLOWING DATA IS CREATED FUR EVERY OPEN MICRODRIVE FILE 
NO SOMETIMES FUR A WORESPACE IN MICROURIVE CPERATIUNS 


SCHANNEL TYPE 


SLENGTH CF THIS CHANNEL LATA 
SCURRENT BYTE POINTER 
SCURRENT RECORD 
$10 BYTE FILE NAME 
SCHANNEL FLAGS 


tWRITE FLAG BIT 


THRIVE NUMBER O-7 

TAWURESS WF ORTVE MAP FOR THIS FILE 
START OF HEALER 

irLAG HYTE AT START OF HEARER (alya=)) 

THUMBER OF CURRENT HEAUER/SECTOR 

VFULLOWED BY TWO EMPTY BYTES 

1TAPE NAME 

SHEADER CHECKSUM 


STOVAL LENGTH OF THE ABOVE PLEN + 15 


3 
CHULS 
RECFLG 


Eu 
Ew 


RECNUM 
RECLEN 


Eau 
BAU 


HUCHK + 4 
CHDES+FPLEN 


RELPLIG+1 
RECNUM+ 1 


$START OF DESCRIPTOR 
SELAG BYTE IN DESCRIPTOR (E1ro=0) 
YEIT 1 EOF e 
mit 2 = SLVM 
INUMBEK OF THIS RECORD 


JLENGTH OF THIS RECORD 


» 


Loc 


OoOoT 
DOO 
oor? 
OO14 
OO1?7 
OoOLys 
OO 


OOLE 


Of CODE M STMT 


LS0F 
LHoIooo xX 


C30000 x 


SHOR IVE PAGE 4 


SOURCE STATEMENT ASM 3.9 
RECNAM ERU RECLEN +2 SNAME OF THIS RECORL 
DESCHE ECL PORSCRIP POR CHECKS 
CHUATA EGU DESIOHE-+ 1 SSTART OF DATA BLOCK 
DCH EQu CHOATAFS 12 SOATA CHECKSUM 
MHANLN  EQu LILHE + 1 SLENGTH OF ALL THIS 


we 


J MERE HEHEHE EE HE HEE ESE HEHE HE [MAS FFE HE ESE ESE EE HEE SEE HE EEE HEE SEE 


3A MICRQURIVE MAF IS A BIT MAP OF ALL SECTORS ON A MICROURIVE 
STHE BITS ARE COUNTED FRUM @ Te HOUMAX-1 THE LENGTH 
SOF THE MAP IS THEREFORE GIVEN BY— 


MAFLN Eau 3 


by 


sTHE MAP IS CREATED FUR EVERY DRIVE CONTAINING AN OPEN FILE 


#LIST CN 


EX TERNAL ERA, MUVE,CATN, FORMAT, OPENN, SAVE,END1 


ue 


GLOBAL ALT_FM 
GLOBAL ATOM 
GLOBAL ACT_LEK 
GLOBAL ACTMO 
GLOBAL ACT_CA 
GLOBAL ACTA 


ACTUEK CALL ERA 
IR EXIT 
ACT_UMO CALL MOVE 
WIR EXIT 
ACT_CA CALL CATN 
JR EXIT 
ACT_FM CALL FORMAT 
JR EXIT 
ACT_UM CALL OF ENN 
JR EXxIf 
ACT.SA CALL SAVE 
JR EXIT 
EXIT JP ENG 


END 


zi lb BLACKS PAGE 4 
Lis C8 CONE M STMT SOURCE STATEMENT ASM 3. 
? 
5 TRAE TERE SE SEAR TEESE TE SEE ETE HE TEE TE SEH HEE SEE TE AEE TEASER EER EE EEE EE EE 
5 BLL : % 
3 # La/2/23 : # 
5 TEE TE TEESE AE EEE AE TEE ETE TE ETE ETE EGE SESE AEE HE TE TE TE TE HEE TEE HEHE TEE EEE TEE SE HE GE 
7 
#LIST ON 
? 
GLORAL 01510,HEX,OFHEX, OF, DISMAF 
EXTERNAL MRUCH MWAH SHISOFT 
EXTERNAL LLB: sUMMY 
5 " 
OOO Fe OPHE X FLUSH AF 
Ir RRA 
LE RRA 
LF RRA 
1E RRA 
rue7og R CALL OPH 
FL Por a 
RH 
OOO> AND OFH 
OOe £4 a CF 10 
QOL 2808 aK C,OPH1 
Q00F C407 Au As “AY "0°10 
OoOLL OPHL AnD Ar“ O*% 
Oo .s CALL cr 
OO1LS RET 


Ooi? 
NOLS 


FLUSH Ar 
CALL WIFHE X 


oo1p Ln vide 
CALL Kip 
Por ar 
RET 


PUSH HL 
PUSH DE 


PUSH ao 
PUSH AF 
EXX 

Pus HL 


FUSH ne 
PUSH Be 
PUtsH AF 


LD HL. (23633) 

PUSH HL. 

PUSH ar 

LO AZ 

344 OLOCAL SELECT 

3 Fl 345 PUP AK 
QOG4S 7 HOG RST CALBAS . 
Otrs7 1000 247 DEEW ae Wet 
0039 «EI 348 PoP HL 
002A 22515C 349 Lo 284633 ))HL 


per iNtni 6 pine baa 


-~ BLOCKS PAGE 2 


Loe OBS CODE M STMY SOURCE STATEMENT ASM 5.9 
Fi 35 PoP AF 
et ' 351 PoP BC 
" Ly i 352 PoP DE. 
Ode E1 S53 Por HL. 
O41 rer 3h: EXX . 
O42 Fi S55 FOP AF 
0043 1 354 Por BC 
0044 Di POP DE 
O045° El POP HL. 
0046 cy RET 
:DIS10 DISPLAYS IN HEX THE 10 BYTES STARTING AT (HL) 
DIs10 
365 DISMAP 
OO? ESS B44 PUS| Hl. 
O04s oa B47 FLUSH eC 
O04 FS 265 FLISH AF 
QO4dAa O608 249 Lo B10 
370 DISi1 
O04 JE 271 LO A» CHL) 
Oo4L LuL700 R B72 CALL HEX 
reac B73 INC HL 
1OF9 374 LLINZ UTSit 
SEOD 375 Lo A, 00H 
Ene 200 R 374 CALL oF 
Fi 2/7 PCr AF 
7 Ct 278 POF BC 
OOSA EL 379 PUP HL 
OOSH C2 320 REY 
SRL 3 
382 END 


KIMK 1.7 


Loan MAr 
MOLLE 


SHUALL 

SH BEGIN 
SHURP TS 
SHUSYNTAX 
SHURE TURN 
SH SAVE 
SHUSAVES 
SHUPORT 
SHOUNET 
HISOFT 
WHSOF T 

SH UCLOSE 
DRIVE 

SH UHCI 
VHSOF T 

SH UORIVE 
BLOCKS 


GLOBAL 


ACT UCLA 
ACTER 
ACT FM 
ACTOFT 
ACTUMO 
ACT OOM 
ACT WOON 
ALTO 
ACTWSA 
AUTOR 
BREAK? 
BOO 
CATN 
CHANGE 
CLOSEN 
CLOSTX 
CLUSTR 
COMM 
CESTR 
CREATE 
DECSEC 
DELEC 
DEL IX 
QELTMF 
OLs19 
OLShar 
DONE? 
QRVO 
DRYVSEL 
ECD 
ECH 
ENDL 
ENDER 
ERA 
FORMAT 
C, FREE? 
~ SETMBL 


: prirar 


eS ee ope 


ORIGIN LENGTH 


OOOO 
“Oooo 
Q258 
O4e6 
OOog 


O701 


OPvAS 
OAC? 
Omen 
OFES 
12k? 
OOO 
1L7F7 
1PSL 
LAFOD 
LE&4 
1ES7 


ADDRESS 


1E70 
1EG4 
1E75 
OA? 
1E4E 
1E7A 
OEAS 
OB47 
LE7F 
OAPs 
1gE9 
Ona? 
icss 
oOckn 
12AE 
12B1 
1712 
OSB1 
1326 
OFES 
121A 
18FA 
1006 
17E 
LECE 
1ECE 
12E2 
1eZa 
L7F7 
134E 
1249 
OSC 4 
O4E2 
LOGE 
1BGE 
12k7 
iSEL 
vE1S 


Ooogg 
OBES 
O22E 
O2aY 
O70O1 
O2AZ 
O124 
OLF4 
OBER 
oO4i1 
o2cy 
17F7 
O1LSA 
OL4F 
OB74 
oOoz1 
OOF 


MOUULE 


SHOR IVE 
SHUORIVE 
SH OR IVE 
SH_PORT 
SH_UORIVE 
SHUR IVE 
SH_UNET 
SH_UPORT S 
SH_UDRIVE 
SHUSAVES 
ORIVE 

SH UPORT 


_VHS0FT 


SH_NET 

HISCFT 

HISOFT 

SH_CLOSE 

SH_SYNTAX 

HISCFT. 

HISOFT 

HISOFT { 
DRIVE | 
HISOFT | Ne a 
SHOUCL CSE a 
BLOCKS oe 
BLOCKS 

HISOFT 

DRIVE 

DRIVE 

HISOFT 

HISOFT 

SH_SYNTAX 

SH_SYNTAX 

VHSOFT 

VHSCFT 

HISOFT 

LHSOET 

SH_NET 


BOCA 
| @ ee o6e 
Fp BASIC.) = ntax aro tun-tinte errors Pracvee SERS) Ss 


The microdrive ROM then takes Over. LDF the error “sg really a 
microdtive command, the commande 's processed 


O SHEETS 5 SQUARE 
10 SHEETS 5 SQUARE 
1O SHEETS 5 SQUARE 


fi, 
7 nN | 
2) 
NATIONAL 


-@- } SSeS iad erg AN eo aan Se eee ¢ Sa Nn re ee ee 


